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Ze smutkiem informuję, że zostaliśmy 
zmuszeni do podwyższenia ceny TA 
Główną przyczyną jest wzrost kosztów 
kolportażu, wynikający z niesolidności 
nieistniejącego jut rzekomo RUCH-u. 
Tych z Państwa, których juz nie stać na 
TA, z żalem więc żegnamy. 

Przypominam o nieprzerwanie trwają¬ 
cych konkursach na najciekawszy pro¬ 
gram w Basicu o dhigosci nie 
przekraczającej 5 wierszy oraz na najbar¬ 
dziej pomysłowe wykorzystanie szóstej 
strony pamięci komputera A TARI. Na co¬ 
miesięcznych laureatów czekają tradycyj¬ 
ne nagrody lOOOOOzł za 5 linii i 300000 
za 6. stronę 

Z przyczyn niezależnych od redakcji 
wypadła z tego numeru "Mapa pamięci". 
Przepraszamy. 

ZDROWYCH, SPOKOJNYCH, 
DOSTATNICH, WESOŁYCH 
ŚWIĄT BOŻEGO NARODZENIA 
ORAZ DOSIE GO ROKU 

w imieniu całego zespołu redakcyjnego 


zyczy 
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Errare humanum est 

W poprzednim odcinku proponowa¬ 
łem Państwu testowanie “buta" kase¬ 
towego przez wykonanie zimnego 
startu z klawiszami SELECT 
i START. Oczywiście miałem na myśli 
klawisze START i OFTION Za pomył¬ 
kę przepraszam Po prostu jest tych 
klawiszy tak wiele, że trudno się 
w tym wszystkim połapać I jeszcze 
sprostowanie do sprostowania z TA 
e/8l znów pominąłem grupę rozka¬ 
zów które modyfikują znacznik C Są 


Tymczasem zasada jest prosta Ist¬ 
nieje tylko jeden “boot”: jest mm dys¬ 
kowy lub kasetowy system operacyj¬ 
ny Każdy inny program powinien się 
uruchamiać pod kontrolą tego syste¬ 
mu (z żasady DOS oferuje więcej mo¬ 
żliwości tuz komputer sam z siebie) 
i po zakończeniu działania do mego 
powrócić Niedopuszczalny jest brak 
w programie opcji wyjścia (zmusza¬ 
nie użytkownika do wyłączania zasila¬ 
nia stanowi jawny zamach na jego 
czas i portfel, bo zwiększa ryzyko 
awarii) 


łu pomnożonym przez 16 tak, by zsu¬ 
mowana z adresem początku obsza¬ 
rów IOCB dała adres interesującego 
nas obszaru W tym programie posłu¬ 
żymy się kanałem nr 1 Przed rozpo¬ 
częciem przesyłania danych należy 
kanał otworzyć, w wyniku czego zo¬ 
stanie on logicznie związany ze ste¬ 
rownikiem danego urządzenia; 

OPEN EQU 3 
IN EQU %0100 
OUT EQU %I000 
COMM EQU IOCB+2 


wiy&i *wyj 

V7 Mńi 1} Al/Az 


to CMP, CPX, CPY czyli rozkazy po 
równania zawartości odpowiednio re¬ 
jestrów A, X, Y z argumentem w pa¬ 
mięci 

Miała baba koguta.. 



wsadziła go do boota! Użytkowni¬ 
ków ATARI z pamięcią taśmową moż¬ 
na poznać z daleka po charakterysty 
eznym skrzywieniu sylwetki Lewa 
ręka jest nieco dłuższa wyciągnięta 
w kier unk u wyłącznika zasilania, pal¬ 
ce prawej układają się w rodzaj wide¬ 
łek, które nieomylnie trafiają w kla¬ 
wisze OPTION i START. A przecież 
jest to postawa unikalna w ćwiecie 
komputerów Maszyny PC włącza się 
rano, a wyłącza wieczorem Są także 
komputery, które me usypiają nig¬ 
dy Ożywia je system operacyjny, 
którego zadaniem jest uruchamianie 
kolejnych programów, zgodnie z żą¬ 
daniami użytkowników ATARI 
XL/XE jest w pełni przystosowany do 
takiego stylu pracy, lecz niestety, 
brak jest ogólnie uznanego stand¬ 
ardu, któremu wierni bybby progra¬ 
miści 


Kanały 

Nie te na Marsie i me w Wenecji, 
lecz tu, w pamięci naszego ATARI, 
kanały wejścia/wyjścia są niezwykle 
ważne dla działania komputera, a na 
dodatek wcale icb nie ma Mianem 
kanału określa się bowiem coś ulotne¬ 
go metodę realizacji połączenia po¬ 
między uniwersalną procedurą wej¬ 
ść n/wyjSela, zwaną CIO, a sterowni 
kiem konkretnego urządzenia Dzięki 
tej metodzie możliwe jest jednakowe 
traktowanie wszystkich urządzeń 
zewnętrznych, niezależnie od ich fizy¬ 
cznych właściwości Prostym przykła¬ 
dem użycia kanału będzie wysłanie tą 
drogą napisu “Hej, to ja!” Zobaczmy 
to na żywym programie; 

OPT %10101 

CIOV EQU $E456 
IOCB EQU $340 
CHN1 EQU $10 

CIOV stanowi tzw wektor, pod ad¬ 
resem QE4oe znajduje się rozkaz sko¬ 
ku do właściwej procedury CIO. IOCB 
określa początek zestawu ośmiu ob¬ 
szarów zwanych blokami sterowania 
we/wy (Input/Output Control Błock) 
Każdy z nich ma rozmiar te bajtów 
($10) i zawiera wszystkie informacje 
niezbędne do funkcjonowania danego 
kanału Istnieje zatem 8 kanałów 
o numerach od o do 7, każdy opisany 
osobnym obszarem IOCB 

ORG $480 

LDX łCHNl 

Odwołując się do CIO wskazujemy 
zawsze rejestrem X, o który kanał 
chodzi Liczba ta jest numerem kana- 


ADDR EQU IOCB+4 
MODĘ EQU IOCB+10 

LDA #OPEN 
STA COMM,X 
LDA <NAME 
STA ADDR,X 
LDA >NAME 
STA ADDR+1,X 
LDA (i OUT 
STA MODĘ,X 
JSR CIOV 


COMM oznacza tu jednobąjtowy re¬ 
jestr rozkazu ■ w nim zawsze podaje 
się kod operacji żądanej od CIO 
ADDR jest dwubajtowym adresem ob¬ 
szaru danych, na którym ma opero¬ 
wać dana funkcja CIO W przypadku 
OPEN (otwarcia) pod adresem NAME 
dostarczymy nazwę urządzenia Bajt 
MODĘ wskazuje na tryb zamierzone¬ 
go przesyłania danych. IN oznacza 
odczyt, zaś OUT zapis Aby umożb- 
wić transmisję w obie strony podaje 
się IN+OUT, lecz nie każde urządze¬ 
nie na to pozwala 

Przez tak otwarty kanał można te¬ 
raz przesyłać dane, co też niezwłocz¬ 
nie uczynimy* 
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PISZ 

EQU 

11 

EOLN 

EQU 

155 

SIZE 

EQU 

IOCB+8 

TEXT 

DTA 

C'Hej, 


LDA 

#PISZ 


DTA 

B(EOLN) 


STA 

COMM,X 

LEN 

EQU 

*—TEXT 


LDA <TEXT 
STA ADDR,X 
LDA >TEXT 
STA ADDR+1 r X 

LDA <LEN 
STA SIZE,X 
LDA >LEN 
STA SIZE+1,X 
JSR CIOV- 

Ponieważ CIO pozostawia nienaru¬ 
szoną zawartość rejestru X, można go 
bez obawy nadal używać do indekso¬ 
wania odwołań do IOCB W słowie 
ADDR podaje się teraz adres danych 
przeznaczonych do przesłania Istnie¬ 
ją dwa rozkazy zapisu: kod 11, zwany 
binarnym i 9, czyli tekstowy Ten 
pierwszy wymaga podania w słowie 
SIZE dokładnej liczby bajtów, które 
zostaną przesłane bez w nikania w icb 
rodzą] Drugi rozkaz, który stosuje 
się do danych tekstowych, polega na 
tym że w przypadku podania wię¬ 
kszego rozmiaru niż długość wiersza 
transmisja przerywa się z chwilą na¬ 
potkania i wysłania znaku końca 
wiersza (o kodzie 166) W obu przy¬ 
padkach po powrocie z CIO słowo 
SIZE będzie zawierać liczbę faktycz¬ 
nie przesłanych bajtów. Po wysłaniu 
porcji danych kanał pozostąje otwar¬ 
ty i aktywny, wciąż związany z danym 
urządzeniem i gotów do dalszych roz¬ 
kazów. Aby zakończyć całą operację, 
trzeba kanał zamknąć, by mógł być 
znów w przyszłości użyty do konta¬ 
któw z inny m urządzeniem: 

CLOSE EQU 12 


Symbol *, który w wyrażeniach oz¬ 
nacza bieżący wskaźnik lokacji pro¬ 
gramu, pozwala nadać etykiecie LEN 
wartość równą długość: tekstu bez 
potrzeby liczenia znaków 

Pozostąje jeszcze tylko nazwa urzą¬ 
dzenia, czy raczej ściślej, nazwa pliku 
wraz z określeniem urządzenia Tu 
mamy szeroki wybór: jeżeli napiszemy 

NAME DTA C' E: ' 

to tekst przykładowy pojawi się na 
ekranie Jeśli podamy 

NAME DTA C'P:' 

to zostanie on wydrukowany na dru¬ 
karce Jeżeli napiszemy 

NAME DTA C'D: DOWOL.TXT ' 

to tekst zostanie zapisany na dyskietce 
w pliku o nazwie DOWOL TXT Myślę 
że takie uniezależnienie od fizycznych 
par ame trów ur ządzenia bardzo uprą* 
szcza konstruowanie programów Nie 
jest to oczywiście przypadek, lecz efekt 
przemyśleń twóroów systemu opera¬ 
cyjnego małego ATARI A dla tych, 
którzy jeszcze tego nie zauważyli 

END 

i to już koniec przykładowego pro¬ 
gramu Celowo pominięto tu badanie, 
czy dana operacja wykonywana przez 
CIO zakończyła się pomyślnie W pra¬ 
wdziwym programie każde odwołanie 
do CIO należy wzbogacić: 


LDA #CLOSE 

STA COMM,X 

JSR CIOV 



Nie wolno tej czynności lekcewa¬ 
żyć gdyż w przypadku urządzeń, któ¬ 
re zapisują dane blokami (jak napęd 
dysków), dopiero CLOSE spowoduje 
fizyczny zapis kompletnej informacji 
Wyjątek stanowi zawsze otwarty ka¬ 
nał nr O, używany przez system dla 
urządzenia TS:" w trybie IN+OUT Nie 
należy go nigdy otwierać ani zamy¬ 
kać 

Dopiszmy do naszego programu je¬ 
szcze przykładowy tekst: 


JSR CIOV 
BMI ERROR 

gdyż CIO w przypadki! niepowodze¬ 
nia ustawia znacznik N Fragment 
programu od etykiety ERROR powi¬ 
nien reagować w odpowiedni sposób 
na doznaną porażkę wnioskując o ro¬ 
dzą] u błędu z rejestru Y, który zawie¬ 
ra jego numer Tę samą liczbę można 
znaleźć w IOCB?3 X Spis możliwych 
błędów we/wy był drukowany w TA 

Nakładki 

Trzecim rodząjem programów, 
obok omówionych już systemów ope¬ 
racyjnych (boot) i pogramów użytko¬ 
wych (w szerokim rozumieniu tego 
słowa), są rezydentne rozszerzenia 
systemu, zwane krótko nakładkami 
Taki program jest tworem pośred¬ 
nim, gdyż wczytuje się i uruc hamia 
tak, jak program użytkowy lecz 


przyczepia się do systemu, pozostąjąc 
w pamięci jako jego część 



W tym miejscu, aby poszerzyć so¬ 
bie horyzonty, zajrzyjmy do artykułu 
“Jak powstąją DOS-y”, który zawiera 
nieco więcej informacji na ten temat, 
po czym być może ogarnie nas chęć 
wykonania rezydentnego sterownika 
jaki goś nowego urządzenia, np “B:", 
co można uznać za skrót słowa “bor- 
der”, które oznacza ramkę ekranu 
Nic łatwiejszego: 

OPT %100101 

ORG $9000 

Tym razem me będziemy asembl 
wać programu do pamięci, lecz 
wprost na dysk (lub kasetę), ponie¬ 
waż zainstalowanie go pod adresem 
określonym w MEMLO spowodowało¬ 
by zniszczenie QA Program w chwili 
uruchomienia znąjdz się pod adre 
sem $9000, skąd dopiero należy go 
przenieść w nieznane z góry miejsce, 
którego adres znajdziemy w MEMLO 

Niecb nasze nietypowe urządzeni 
zapisuje wysyłane do mego dane 
w komórce 719, odpowiadającej za 
kolor r amki ekranu, zaś przy odczy¬ 
cie niech pobiera bąjty z rejestru 
liczb losowych, w przypadku zera 
meldując błąd 136, co oznacza koniec 
danych. 

RANDOM EQU $D20A 
NEWDEV EQU $EEBC 
BORDER EQU 712 
MEMLO EQU $2E7 
EOF EQU 136 
DOSINI EQU 12 

START EQU * 

Poniższy fragment stanowi proce¬ 
durę ini jalizacj: , która zastąpi doty¬ 
chczasową sekwencję wykonywaną 
po naciśnięciu klawisza RESET 

INIT JSR 0 

Pierwszą czynnością, którą musi 
wykonać nowa procedura inicjalizacji 
(podepniemy ją do wektora DOSINI) 
jest wywołanie starej procedury lni- 
cjalizacji. Podczas wstępnej fazy in¬ 
stalowania naszej nakładki zostanie 
w miejscu argumentu O umieszczony 
adres dotychczasowej procedury od- 
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czytany z DOSINt Następną czynno¬ 
ścią będzie wpisanie do tablicy HA 
TABS informacji o urządzeniu “B:” 

LDX #'B' 

LDY BHADR 
LDA BHADR+1 
JSR NEWDEV 

Wreszcie - poprawienie MEMLO 
tak, by adres ten wskazywał obszar 
powyżej naszego programu: 

LDA NEWML 
STA MEMLO 
LDA NEWML+1 
STA MEMLO+1 

RTS 


Zestaw procedur sterownika: 
OPEN, CLOSE, GET, POT, STATUS 
SPECLAL Zwróć uwagę, że mają wie¬ 
le wspólnych fragmentów kodu (zo¬ 
stały zoptymalizowane pod kątem 
oszczędności pamięci): 


CLOSE 

LDA 

#0 

PUT 

STA 

BORDER 

OPEN 

EQU 

* 

STATUS 

EQU 

* 

SPEC 

EQU 

* 

OK 

LDY 

RTS 

#1 

GET 

LDA 

RANDOM 


BNE 

OK 


LDY 

RTS 

#EOF 


BRK 

(koniec programu) 

Pojedynczy 

rozkaz BRK jest wyma- 


gany dla programu przesuwającego 
jako znacznik końca kodu Bezpo¬ 
średnio po nim następuje blok adre¬ 
sów, zastępujących użycie w progra¬ 
mie rozkazów w trybie natychmiasto¬ 
wym z argumentami “<" i “>" (takie 
rozkazy nie mogłyby być przemiesz¬ 
czone). 

NEWML DTA A(ENDBH) 

BHADR DTA A(BHTAB) 

oraz tablica sterownika, której adres 
zostanie umieszczony w HATABS 

BHTAB DTA A(OPEN-l) 

DTA A(CLOSE-l) 

DTA A(GET-1) 

DTA A(PUT-l) 

DTA A(STATUS-1) 

DTA A(SPEC-l) 

Klasyczna tablica sterownika zawie¬ 
ra jeszcze na końcu rozkaz skoku 
JMP do bliżej nieokreślonej proce¬ 
dury inicjalizującej, ale s całą pewno¬ 
ścią nikt i nic z niego nie korzysta, 
więc pozwoliłem sobie pominąć go. 

ENDBH EQU * 

DTA A(0) 


tai 




Pojedynczy adres O informuje pro¬ 
gram przesuwający, że skończył się 
blok adresów przesuwalnych Dalej 
mogą się znaleźć teksty komunika¬ 
tów, różne bufory, itd , słowem takie 
dane, których nie trzeba modyfiko¬ 
wać podczas przesuwania programu 
w pamięci Dziwnym zrządzeniem lo¬ 
su ten program nie zawiera takich 
danych Tu kończy się część rezyden¬ 
tna Dalsza część programu wykona 
się jednorazowo w chwili uruchomie¬ 
nia, lecz me wchodzi w skład rezyden¬ 
ta i me musi być przesuwana. 

SETINI LDX #1 
SI LDA DOSINI,X 

STA INIT+1,X 
LDA MEMLO,X 
STA DOSINI,X 


• na ostatku segment zwykłych 
danych, które przemieszcza się 
bez zmian 


DEX 

BPL SI 
RTS 


Procedura SETINI ustawia nowy 
adres inicjalizacji systemu, zapamię¬ 
tawszy przedtem stary Na tym koń¬ 
czy się program sterownika, lecz nie 
przerywajmy pisania 



kę! Następujący program potrafi 
przemieszczać w pamięci dowolne 
programy, z góry w dół, na granicę 
MEMLO, pod warunkiem zachowania 
kilku prostych zasad (większość 
z nich zasygnalizowano w tym przy¬ 
kładzie): 

• program zapiszesz w jednym 
ciągłym obszarze pamięci wraz 
z relokatorem 

• wykonanie Twego programu 
musi się rozpocząć od jego pier¬ 
wszego baj t u 

• brak rozkazów s “<” i “>” (w za¬ 
mian korzystanie z danych adre¬ 
sowych) 

• BEK na końcu segmentu kodu 

• tuż po BRK tablica adresów 
przesuwalnych (wszystkie wska¬ 
zują na obszar objęty przemiesz¬ 
czaniem) zakończona adresem 
spoza tego zakresu 


Relokator następuje tuż po seg¬ 
mencie danych i musi mieć zdefinio¬ 
wane dwie etykiety. STAR_ określa 

początek programu do przesuwania 
(znajdzie się on pod adresem zawar¬ 
tym w MEMLO) USER_wskazuje na 

procedurę, która będzie wykonana 
PRZED rozpoczęciem przemieszcza¬ 
nia programu. Wszystkie etykiety 
użyte w relokatorze kończą się dwo¬ 
ma znakanj podkreślenia dla unik¬ 
nięcia konfliktów z nazwami w prze¬ 
suwanym programie 

STAR_ EQU START 
USER EQU SETINI 


* _ —- -* 

* * 

* Relocator 1.0 * 

* * 

* by JBW * 

* * 

* may'88 * 

* * 

* - * 


*-page 0 


BYTE 

EQU 

$CE 


DATF_ 

EQU 

$CF 


DI ST 

EQU 

$D0 

(2) 

SRCE 

EQU 

$D2 

<2> 

DEST 

EQU 

$D4 

(2) 

ADDR 

EQU 

$D6 

(2) 


*- system 


RUNA_ EQU $2E0 (2) 
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Po naciśnięciu klawisza RESET automatycznie 
przywraca wartości niektórych komórek systemo 
wych zgodnie z ich wcześniejszym ustawieniem 
przez użytkownika Odtwarzane są marginesy, ko 
lory ekranu, używany zestaw znaków, przełącznik 
dźwięku "klik" oraz zwłoka i prędkość powtarzania 
klawiatury, Oszczędza to wielokrotnego wpisywania 
POKE-ów Dodatkowo program ten pozwala doko¬ 
nywać za pomocą klawiszy 'konsoli" wyboru pomię 
dzy trzema różnymi zestawami znaków: standar¬ 
dowym (klawisz START), międzynarodowym (SE 
LECT) i własnym zestawem (OPTION), którego 
starszy bajt adresu zapisuje się w komórce 757 

Po uruchomieniu (zainstalowaniu) programu od 
adresu 1536, a także po każdym RESET, zgłasza się 
on komunikatem "Jestem!!" Można go jednak bar¬ 
dzo łatwo zdezaktywować (odinstalować), naciskając 
RESET z wciśniętymi dodatkowo klawiszem START 


GN 10 REM *-* 

ZG 20 REM : Pamietacz : 

RL 30 REM : ' Macie] Czarnota : 

UC 40 REM : (c) 1991 Tajemnice ATARI : 

GR 50 REM *-* 

IT 60 A=1536:TRAP 80 

IM 70 READ B:POKE A,B:A=A+1:GOTO 70 

SF 80 A=USR(1536) 

YX 90 END 

ZU 110 DATA 104,165,12,141,119,6,165,13 
EE 120 DATA 141,120,6,169,22,133,12,169 
SA 130 DATA 6,133,13,76,103,6,173,31,208 
JN 140 DATA 201,6,208,19,162,142,160,6 
QX 150 DATA 32,66,198,173,119,6,133,12 
TS 160 DATA 173,120,6,133,13,208,42,160 
AA 170 DATA 1,185,121,6,153,244,2,185 
UM 180 DATA 126,6,153,82,0,136,16,241 
TR 190 DATA 160,2,185,123,6,153,217,2 
VG 200 DATA 136,16,247,160,4,185,128,6 
RM 210 DATA 153,196,2,136,16,247,32,11,6 
VQ 220 DATA 173,119,6,133,203,173,120,6 
KS 230 DATA 133,204,108,203,0,160,152 
JT 240 DATA 162,6,169,7,32,92,228,162 
NM 250 DATA 133,160,6,76,66,198,0,0,0,0 
OC 260 DATA 0,0,0,0,0,0,0,0,0,0,74,101 
XL 270 DATA 115,116,101,109,33,33,155,66 
QQ 280 DATA 121,101,45,98,121,101,33,33 
HI 290 DATA 155,173,31,208,201,6,208,4 
HG 300 DATA 169,224,208,15,201,5,208,4 
UL 310 DATA 169,204,208,7,201,3,208,6 


JO 

320 

DATA 

173,245,2,141,244,2,160, 

1 

RO 

330 

DATA 

185,244,2,153,121,6,185, 

82,0 

EL 

340 

DATA 

153,126,6,136,16,241,160 

,2 

MC 

350 

DATA 

185,217,2,153,123,6,136, 

16 

NP 

360 

DATA 

247,160,4,185,196,2,153, 

128 

CK 

370 

DATA 

6,136,16,247,76,138,194, 

END 


Maciej Czarnota 

Od redakcji: Program wplata swoją procedurę 
w sekwencję RESET DOS lub COS Domniema się 
więc, że bit O komórki 9 (BOOT) jest ustawiony. Oz 
nacza to, że Pamiętacz me będzie działał poprawnie 
bez obecności takiego systemu. 



RAMFIIi 



Spośród wielu podobnych programów, jakie nawie¬ 
dziły ostatnio naszą redakcję, prezentujemy najzgra¬ 
bniejszy. Autorzy nazywąją swe dzieła szumnie 'ram 
dyskami", lecz są to raczej "ram pliki", gdyż operują na 
pamięci przykrytej ROM-em tak, jak na pojedynczym 
pliku o nazwie "M:". Można w nim zapisać program 
BASIC-owy przez SAVE "M:" lub LIST M - ", a potem go 
odczytać. Można go użyć dla biblioteki lub połączo¬ 
nych bibliotek w QA Można nagrać obrazek spod KO¬ 
ALI... Zakres zastosowań jest nieograniczony. RamFi 
le koliduje wszakże z programami, które same zago¬ 
spodarowują wspomnianą pamięć, jak SpartaDOS 
Turbo BASIC, XLFriend. RamFile należy przetworzyć 
programem Zgrywus+. 

RESET wyłącza plik "M:", lecz dane w nim me gi 
ną. Można aktywizować RamFile przez 
X=USR( 1536) w BASIC u lub RUN 601 w DOS-ie 
(różnica adresów spowodowana jest przez rozkaz 
PLA). Należy zadbać, by RamFile nie był nigdy 
otwarty jednocześnie w dwóch kanałach we/wy 


6 
























IJ 1000 REM *-* 

UF 1002 REM : Handler "M:" : 

RG 1004 REM : autor: L.Sztobryn : 

YF 1006 REM : (c) 1991 Tajemnice ATARI : 

JP 1008 REM *-* 

DF 1010 DATA FFFF00068F0668A24OA00AA906 
RD 1020 DATA 4CBCEE18061506570631061506 
WH 1030 DATA 15O6A0O16OAE8FO6AOO0A9O824 
QN 1040 DATA 2AF0068C3B068E3C068C6B068E 
GE 1050 DATA 6C06C860AE3C06F01B2082068D 
HW 1060 DATA 3AO6EEO1D358EE3BO6D0DOE8E0 
TV 1070 DATA DOD0O2A2D88E3CO6DOC4AOA260 
WD 1080 DATA A08860AD6B06CD3B06AD6C06AA 
NH 1090 DATA ED3C06B0EE208206AD6A06EE01 
IX 1100 DATA D358EE6B06D0A0E8E0D0D002A2 
KS 1110 DATA D88E6C06D0942C0BD430FB8D0A 
JC 1120 DATA D478CE01D360C0E002E1020106 

L. Sztobryn 


TRZY WYMIARY 


Program w BASIC u jest tylko krótką demonstra 
eją działania procedury maszynowej umiejscowionej 
na szóstej stronie. Ta procedura pozwala przenieść 
w dowolne miejsce ekranu zaprojektowany wcześ¬ 
niej znak Jej istotną cechą jest to. że pary bitów da¬ 
nych, przyjmujące kolor tła (OO), nie zamazują do¬ 
tychczasowej zawartości ekranu, dzięki czemu uzy 
skuje się efekt grafiki trójwymiarowej. 

ZY 1 REM *-* 

UB 2 REM : : 

YT 3 REM : TRZY WYMIARY : 

UD 4 REM : : 

XE 5 REM : autor Aleksander Usik : 

UF 6 REM : : 

AE 7 REM *-* 

BE 8 REM [Z] mała cegła, [X] duża cegła 

SI 9 REM joy(0) budowanie, [D] demo 

EW 10 ? CHR$(125):LIST l,9:GOSUB 430 

TV 20 REM - Dane: mała cegła - 

ZB 30 RESTORE 40:FOR 1=21000 TO 21000+31: 

READ A:POKE I,A:NEXT I 
VI 40 DATA 0,0,0,0,15,10,42,255,170,170,1 
70,170,170,170,170,170 
EP 50 DATA 0,0,0,0,255,175,187,235,235,23 

5.235.235.235.236.240.192 

OC 60 REM-Dane: duża cegła- 

QW 70 RESTORE 80:FOR 1=21032 TO 21095:REA 
D A:POKE I,A:NEXT I 

UH 80 DATA 0,0,0,0,3,14,58,255,170,170,17 
0,170,170,170,170,170 

DD 90 DATA 3,14,58,234,170,170,170,255,17 
0,170,170,170,170,170,170,170 
AD 100 DATA 255,170,170,170,171,174,186,2 

34.234.234.234.234.235.236.240.192 

BO 110 DATA 255,175,187,235,171,171,171,1 
71,171,172,176,192,0,0,0,0 

YM 120 REM-Program pokazowy- 

HA 130 GRAPHICS 15+16:PM=PEEK(88J+PEEK(89 
)*256:ADWZ=21000:KOL=l 
BU 140 POKE 708,4:POKE 709,8:POKE 710,14: 

POKE 712,0 
WU 150 X=0:Y=0 
XL 160 ST=STICK(0) 

WI 170 X=X+(ST=7 AND X<39-KOL)-(ST=11 AND 


X>0):Y=Y+4*(ST=13 AND Y<176)-4*(ST=14 
AND Y>0) 

YM 180 PMM=PM+X+Y*40 
TX 190 GOSUB 250 

RN 200 IF STRIG(0 )=0 THEN SOUND 0,50,12,1 
5:A=USR(1536,ADWZ,PMM,16 +KOL* 2 5 6 ) :SOUN 
D 0,0,0,0 

OB 210 IF PEEK(764)=23 THEN ADWZ=21000:KO 
L=1:POKE 764,255 

XE 220 IF PEEK(764)=22 THEN ADWZ=21032:KO 
L=3:POKE 764,255 

LT 230 IF PEEK(764)=58 THEN ? #6;CHR$(125 
):GOSUB 300:POKE 764,255 
OD 240 GOTO 160 

RM 250 REM- Celownik - 

SP 260 KG=PEEK(PMM):KD=PEEK(PMM+640) 

UO 270 POKE PMM,255 :POKE PMM+640,255:POKE 
PMM,0:POKE PMM+640,0 
KC 280 POKE PMM,KG:POKE PMM+640,KD 
ZQ 290 RETURN 
TS 300 REM-Demo- 

MS 310 Q=0:FOR Y=0 TO 12 STEP 2+2*(KOL=3) 
YL 320 FOR X=0 TO 19 STEP l+(KOL=3) 

AX 330 SLUP=INT(RND(0)*3+12-Y) 

XA 340 FOR SL=0 TO SLUP 

BQ 350 PMM=PM+4495+X+Y*160-Q-SL*320 

FT 360 SOUND 0,50,12,15 

UL 370 A=USR(1536,ADWZ,PMM,16+KOL+256) 

WD 380 SOUND 0,0,0,0 
QL 390 NEXT SL 

VP 400 NEXT X:Q=Q+2+2*(KOL=3):NEXT Y 
QW 410 FOR 1=0 TO 255:POKE 710,I:NEXT I:P 
OKE 710,14 

FW 420 FOR 1=0 TO 500:NEXT 1:2 #6;CHR$(12 
5):RETURN 

XO 430 REM - szósta strona - 

BG 440 RESTORE 470:1=0 
ZP 450 READ A:IF A<0 THEN RETURN 
DP 460 POKE 1536+1,A:1=1+1:GOTO 450 
BZ 470 DATA 104,104,133,204,104,133,203,1 
04,133,206,141,254,6,104,133 
SM 480 DATA 205,141,253,6,104,133,208,104 
,133,207,141,255,6,160,0 
LT 490 DATA 177,203,133,209,24,165,209,41 
,192,208,8,177,205,41,192 
HV 500 DATA 101,209,133,209,165,209,41,48 
,208,8,177,205,41,48,101 
KD 510 DATA 209,133,209,165,209,41,12,208 
,8,177,205,41,12,101,209 
LA 520 DATA 133,209,165,209,41,3,208,8,17 
7,205,41,3,101,209,133 
XH 530 DATA 209,165,209,145,205,169,40,24 
,101,205,133,205,144,2,230 
QD 540 DATA 206,230,203,208,2,230,204,198 
,207,208,168,165,208,240,27 
GV 550 DATA 238,253,6,208,3,238,254,6 
SF 560 DATA 173,254,6,133,206,173,253,6,1 
33,205 

HR 570 DATA 173,255,6,133,207,198,208,16, 
137,96,-1 
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Gra ta jest komputerową wersją karcianej gry 
o tej samej nazwie, znanej też jako "dwadzieścia je¬ 
den". Ogólnie rzecz biorąc polega ona na zebraniu 
takiej liczby punktów, która byłaby najbliższa 21, 
lecz nie większa. Każda karta jest odpowiednio pun 
ktowana i grający na zmianę (o ile oczywiście sobie 
tego życzą) pobierają z banku po jednej karcie Pun 
ktacja kart jest następująca. 

• od dwójki do dziewiątki - według liczby na karcie, 

• od dziesiątki do króla 10 punktów. 

• as - 11 punktów. 

Zwycięstwo w grze daje graczowi 1 "duży" punkt. 
Chyba, ze miał on "oczko", to wtedy dostaje aż 3 ta¬ 
kie punkty. Osiągnięcie przez gracza lub komputer 
maksymalnej liczby "dużych" punktów powoduje 
rozstrzygnięcie: kto został zwycięzcą całej gry. 

Opis klawiszy sterujących: 

Na planszy tytułowej klawiszami kursora (bez 
CONTROL) ustala się pułap "dużych" punktów. Każ¬ 
dy inny klawisz z wyjątkiem ESC powoduje urucho¬ 
mienie gry. Wyżej wspomniany ESC, naciśnięty 
w dowolnym momencie, służy do opuszczenia gry. 
W trakcie rozgrywki klawiszem CLEAR można po¬ 
wrócić do planszy tytułowej Następną kartę pobiera 
się przez naciśnięcie RETURN, natomiast SPACE 
oznacza zakończenie pobierania kart przez gracza. 



IJ 1000 REM *- 

RA 1002 REM : “Oczko" 

BM 1004 REM : Autor: Dariusz Zolna 

HD 1006 REM : (c) 1991 Tajemnice Atari 

JP 1008 REM *-- 

BU 1010 DATA FFFF008804926820F38CA9FF8D 
VJ 1020 DATA FC02ADFC02C9FFF0F98DA68EAD 
JN 1030 DATA A78EAEA68EE00FD00338E90AE0 
YL 1040 DATA 0ED00318690AE006D00338E901 
DW 1050 DATA E007D0031869018DA78EC90AB0 
DO 1060 DATA 05A90A8DA78EC9643005A9638D 
OX 1070 DATA A78EA9BAA000208F8DADA78E20 
NF 1080 DATA 868CA001B1B099428F8810F8AD 
PY 1090 DATA A68EC906F09CC907F098C90EF0 
NA 1100 DATA 94C90FF090C91CD0034C328DA9 
HV 1110 DATA A5A000208F8DA01EB9559191B0 


LZ 

1120 

DATA 

WO 

1130 

DATA 

BN 

1140 

DATA 

ZP 

1150 

DATA 

JE 

1160 

DATA 

RZ 

1170 

DATA 

LQ 

1180 

DATA 

YP 

1190 

DATA 

XW 

1200 

DATA 

OT 

1210 

DATA 

PP 

1220 

DATA 

HZ 

1230 

DATA 

zx 

1240 

DATA 

OG 

1250 

DATA 

MY 

1260 

DATA 

TN 

1270 

DATA 

SV 

1280 

DATA 

CP 

1290 

DATA 

FJ 

1300 

DATA 

LT 

1310 

DATA 

RS 

1320 

DATA 

RJ 

1330 

DATA 

BQ 

1340 

DATA 

ZX 

1350 

DATA 

YS 

1360 

DATA 

QZ 

1370 

DATA 

RQ 

1380 

DATA 

TQ 

1390 

DATA 

XR 

1400 

DATA 

PN 

1410 

DATA 

CW 

1420 

DATA 

EG 

1430 

DATA 

AQ 

1440 

DATA 

TR 

1450 

DATA 

JQ 

1460 

DATA 

FO 

1470 

DATA 

CJ 

1480 

DATA 

LV 

1490 

DATA 

PQ 

1500 

DATA 

YS 

1510 

DATA 

PG 

1520 

DATA 

QG 

1530 

DATA 

QA 

1540 

DATA 

HT 

1550 

DATA 

HH 

1560 

DATA 

ZD 

1570 

DATA 

IT 

1580 

DATA 

LV 

1590 

DATA 

HC 

1600 

DATA 

PG 

1610 

DATA 

AB 

1620 

DATA 

ZH 

1630 

DATA 

XU 

1640 

DATA 

PH 

1650 

DATA 

UM 

1660 

DATA 

CL 

1670 

DATA 

vc 

1680 

DATA 

YZ 

1690 

DATA 

OF 

1700 

DATA 

JU 

1710 

DATA 

SR 

1720 

DATA 

LQ 

1730 

DATA 


mm 


8810F820208CA9008D9C8E8D9D 

8EADA08ED003200E8BADA18ED0 
0320A48AADA58EF00620328D6C 
0A00ADA88EF00620328D4C0188 
ADA08EF0D5ADA18EF0D020908A 
A9008DA48EA9F6A000208F8DAD 
A48E0A186DA48E65B085B0ADA4 
8E0A6DA48EAAE8E8A00 2BDDB8E 
99958ECA8810F6A9A985B2A98E 
85B3209C8BEEA48EADA48ECD9E 
8E30C1A9DAA002208F8DA01CB1 
B09938918810F8A91785B2A98F 
85B3A9018DA28EAD9B8EC916B0 
0DA92285B2A98F85B3A9008DA2 
8EAD9A8EC915D010A9F685B2A9 
8E85B3A9038DA28E4C9B89AD9A 
8EC9163010A90185B2A98F85B3 
A9008DA28E4C9B89AD9A8ECD9B 
8ED010A90C85B2A98F85B3A900 
8DA28E4C9B89AD9A8ECD9B8E30 
0DA91785B2A98F85B3A9018DA2 
8EA9FE18693085B0A990690085 
B1A009B1B291B08810F9A91785 
B2A98F85B3A9018DA38EAD9A8E 
C916B00DA92285B2A98F85B3A9 
008DA38EAD9B8EC915D010A9F6 
85B2A98E85B3A9038DA38E4C2D 
8AAD9B8EC9163010A90185B2A9 
8F85B3A9008DA38E4C2D8AAD9B 
8ECD9A8ED010A90C85B2A98F85 
B3A9008DA38E4C2D8AAD9B8ECD 
9A8E300DA91785B2A98F85B3A9 
018DA38EA9FE18692185B0A990 
690085B1A009B1B291B08810F9 
ADA2 8E186D9D8E8D9D8EADA38E 
186D9C8E8D9C8EA9A8A000208F 
8DAD9C8E20868CA9BFA000208F 
8DAD9D8E20868CAD9C8ECDA78E 
30034CA78CAD9D8ECDA78E3003 
4CA78C20588D20208C4C9788A9 
FE18691385B0A990690085B1AD 
9A8E20868C60AD9A8EC9113006 
A9FF8DA18E608D998E20E18BAD 
998E8D9A8EA9F6A000208F8DAD 
9E8E0A186D9E8E65B085B0A900 
65B185B1AD9E8E0A6D9E8EAAE8 
E8A002B9958E9DDB8ECA8810F6 
A9C285B2A98E85B3A204A004B1 
B291B08810F9209A8DA90520A8 
8DCA10ECEE9E8E6020FDF2ADFB 
02C99BF01EC91BF00EC93CF010 
C920D0EAA9FF8DA08E60A9FF8D 
A58E60A9FF8DA88E60AD9B8E8D 
998E20E18BAD998E8D9B8EC916 
9005A9FF8DA08EA5581869E685 
B0A559690185B1AD9F8E0A186D 
9F8E65B085B0A90065B185B1A9 
A985B2A98E85B3209C8BA9FE18 
690485B0A990690085B1AD9B8E 
20868CA9DAA002208F8DAD9B8E 
20868CEE9F8E60AD968EA00291 
B2A01791B2AD95 8EA0 0191B 2A0 
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OR 

1740 

DATA 

QL 

1750 

DATA 

WF 

1760 

DATA 

BQ 

1770 

DATA 

OF 

1700 

DATA 

1L 

1 790 

DATA 

DS 

1800 

DATA 

UO 

1810 

DATA 

VT 

1820 

DATA 

GE 

1830 

DATA 

NE 

1840 

DATA 

ss 

1850 

DATA 

SN 

1860 

DATA 

NZ 

1870 

DATA 

CH 

1 880 

DATA 

ys 

1890 

DATA 

RK 

1900 

DATA 

Ul 

1910 

DATA 

RQ 

1920 

DATA 

KA 

1930 

DATA 

XT 

1940 

DATA 

AW 

1950 

DATA 

TU 

1960 

DATA 

GV 

1970 

DATA 

LH 

1980 

DATA 

BA 

1990 

DATA 

HY 

2000 

DATA 

ZB 

2010 

DATA 

QO 

2020 

DATA 

MF 

2030 

DATA 

RQ 

2040 

DATA 

AE 

2050 

DATA 

OY 

2060 

DATA 

RU 

2070 

DATA 

PC 

2080 

DATA 

BD 

2090 

DATA 

ZG 

2100 

DATA 

JG 

2! 10 

DATA 

OK 

2120 

DATA 

JE 

2130 

DATA 

VJ 

2140 

DATA 

BH 

2150 

DATA 

AJ 

2160 

DATA 

JG 

2170 

DATA 

AE 

2180 

DATA 

IZ 

2190 

DATA 

CR 

2200 

DATA 

ND 

2210 

DATA 

UC 

2220 

DATA 

BE 

2230 

DATA 

OM 

2240 

DATA 

NS 

2250 

DATA 

BI 

2260 

DATA 

ZN 

2270 

DATA 

ZQ 

2280 

DATA 

ZT 

2290 

DATA 

YU 

2300 

DATA 

IX 

2310 

DATA 

DW 

2320 

DATA 

YV 

2330 

DATA 

UL 

2340 

DATA 

GV 

2350 

DATA 

QK 

2360 

DATA 

NP 

2370 

DATA 

VO 

2380 

DATA 

MY 

2390 

DATA 

TV 

2400 

DATA 

1Q 

2410 

DATA 

QZ 

2420 

DATA 

AL 

2430 

DATA 

WG 

2440 

DATA 


16AE968EE080D001C891B2AD97 
8EA00691B2A01291B2A204A004 
B1B291B08810F9209A8DA90520 
A88DCA10ECA9808DBF8E60AD0A 
D2293FC934B0F78D988EA8B95E 
8ED0EEA9FF995F8EAD988E0A18 
6D988EAAE8E8A002BDB4 8D9995 
8ECA8810F6AD988E4A4AA8B950 
8E186D998E8D998E60A035A900 
995E8E8810FA8DA08EA9D6A002 
208F8DA01CB9FE9091B0881 0F8 
A9F6A000208F8DA20AA01CA900 
91BO881OF92 09A8DCA10F1A9BE 
A001208F8DA01CA95291B08810 
FBA90C8DFC02A9008DA08E8DA1 
8E8D9f8E8D9E0E8D9A8E8D9B8E 
8DA58E8DA88E6085D4A90085D5 
20AAD920E6D8A000B980058DA4 
8E291F098091B0C8ADA4 8E1OFE 
60A916A000208F8DAD9D8ECD9C 
8E300320D48CA9E6A001208F8D 
AD9C8ECD9D8K300320D48C2058 
8D20328D4C0188A97485B2A991 
85B3A204A01CB1B291B08810F9 
A91D20A88D209A8DCA10EC60A9 
A5A000208F8DA92D85B2A98F85 
B3A90585B4A99285BSA20EA01E 
BIBO91B4B1B291B08810F52 09A 
8DA91F20A88DA5B418691F85B4 
A5B5690085B5CA10DB60A9A5A0 
00208F8DA90585B2A99285B3A2 
0EA01EB1B291B08810F9209A8D 
A91F20A88DCA10EC60A9D6A002 
208F8DA9FF8DFC02ADFC02C9FF 
D0062077 8D4C648DA? 0020818D 
60A200A514292 0D002A21DAOOO 
BDFE9091B0E8C8C01D30F56018 
6558858098659985B160A5B018 
692885B0A5B1690085B1601865 
B285B2A90065B385B360A1F3C0 
A1F3E0A1F3D0AIF3FBAB80C0AB 
80E0AB80D0AB8GFBB180C0B180 
E0B180D0B1806 BAA80C0AA80E0 
AA80D0AA80FB9190C09190E091 
90D09190FB9980C09980E09980 
D099 80FB9880C09880E09880D0 
9880FB9780C09780E09780D097 
80FB9680C09680E09680D09680 
FB9580C09580EC9580D09580FB 
9480C094 80E094 80DO94 80FB93 
80C09380E09380D09380FB9280 
C09280E09280D092 80FB0B0A0A 
0A0A0908070605040302010000 
00000000000000000000000000 
ooooooooooooocoooooooooooo 
00000000000000000000000000 
00000000000000000000000000 
O0A1F3C000OO00OO0000000000 
0000000000001400D980808059 
D980808059D980808059D98080 
8059D980808059D9D7D2D759D9 
FCD3FC59D9D3FCD359D9FCD3FC 
59D9D8D2D85980808080808080 
80808080808080808080808080 
8080808080808081818180AFEB 
EF80818181A6F5F2E180808080 
808080B2E5EDE9F38080808080 
80B7F9E7F2E1EEF980808080B0 
F2FAE5E7F2E1EEF98080CC8080 
8080ABEFEEE3FAE1E3F980F7F9 
EEE9EB9A809290808080808080 





% 

EL 

2450 

DATA 

DO 

2460 

DATA 

OB 

2470 

DATA 

SO 

2480 

DATA 

YC 

2490 

DATA 

11 

2500 

DATA 

NV 

2510 

DATA 

RL 

2520 

DATA 

HD 

2530 

DATA 

GN 

2540 

DATA 

ZN 

2550 

DATA 

Z Q 

2560 

DATA 

PS 

2570 

DATA 

GF 

2580 

DATA 

YN 

2590 

DATA 

MP 

2600 

DATA 

VP 

2610 

DATA 

ZG 

2620 

DATA 

KE 

2630 

DATA 

IW 

2640 

DATA 

DC 

2650 

DATA 

BX 

2660 

DATA 

BH 

2670 

DATA 

YV 

2680 

DATA 

MS 

2690 

DATA 

ZC 

2700 

DATA 

GK 

2710 

DATA 

ER 

2720 

DATA 

CM 

2730 

DATA 

NB 

2740 

DATA 

NE 

2750 

DATA 

XE 

2760 

DATA 

TG 

2770 

DATA 

QW 

2780 

DATA 

PN 

2790 

DATA 

KK 

2800 

DATA 

LV 

2810 

DATA 

OB 

2820 

DATA 

NN 

2830 

DATA 

NO 

2840 

DATA 

FU 

2850 

DATA 

IO 

2860 

DATA 

IR 

2870 

DATA 

OA 

?8R0 

DATA 

LH 

2890 

DATA 

GR 

2900 

DATA 

MX 

2910 

DATA 

PH 

2920 

DATA 

WB 

2930 

DATA 

HI 

2940 

DATA 

IG 

2950 

DATA 

IM 

2960 

DATA 

AS 

2970 

DATA 

FM 

2980 

DATA 

UV 

2990 

DATA 



80CBC9D5D5D5D5D5D5D5D5D5D5 
D5D5D5D5D5D5 D5 D5D5D5D5 D5 D5 
D5D5D5D5D5D5CF590000000000 
CC80CB00CC00CB00808080008O 
498000CC80CB0000000000D959 
00D2D2D2008000800080000000 
49C900008080590080008000D2 
D2D200D9590000000000CF80C9 
00CF80C90080808000804B8000 
CF80C90000000000D959000000 
00000000000000000000000000 
00000000000000000000000000 
D9598A8ACD55554E4E5555CD00 
246C61000234616A656D6E6963 
D9AA80805 909 5 98A8A8A8A8ACE 
CED5D54DOO0000000000000021 
7461726902D9FB808059D9598A 
8A8A8A8A4E4E5555CD006E6170 
6973616C000000000000D98080 
8059D95900004DD5D5CECED5D5 
4D000000000000246172697573 
7A00O98080FB59D9598080CD55 
554E4E5555CD00000000000000 
3A6F6C6E610000D98080AA59D9 
5900004DD5D5CECED5D54D0000 
00000000000000000000000000 
0000O000D95900000000000000 
0000086309002465002A657400 
1217OE10180E191100D9CB5555 
55555555555555555555555555 
55555555555555555555555555 
55CCCF808080808080A8F5FBFE 
E9EA80F7 80EBECE1F7E9F3FAE5 
808080808080C980B4F99A8080 
808080808080808080A3F0F59A 
8080808080808080808080B4F9 
9A8080808080808080808080A3 
F0F59A80808080808080808080 
80808080808080808080808080 
80808080808080808080808080 
808080CC80809090808D8D8D80 
80AF80E380FA80EB80EF80808D 
8D8D8090908080CB8080598000 
D9598000804980CBD959808059 
808059CC80CB498080008000CC 
4C8000D959CF80C9D95900D959 
80550000CC4C800000D959D959 
80CC4C0080D9D959008000D959 
00D95980D500CC4C00800000D9 
80805980808059CFC9804C0080 
004BB0C9D959808059808059CF 
80C9D959D95955000000000000 
00000000000000000000CB4F00 
00000000000000000000E002E1 
020188 



Dariusz Żołna 
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MELO EQU $2E7 (2) 


* -move - 

MOVE_ EQU * 

JSH USER 

* disable RUN comm 

LDA #$60 (RTS) 
STA MOVE_ 

* elear data flag 

LDA #0 
STA DATF 

* dcstination 

LDA MELO 

STA DKST_ 

LDA MELO _+l 
STA DEST +1 

* codę source, distance 

SEC 

LDA <STAR_ 

STA SRCE 

SBC DEST_ 

STA DIST_ 

LDA >STAR 

STA SRCE_+1 

SBC DEST_+1 

STA DIST +1 


*** move process *** 



LDY 

#0 



BEQ 

MOVL (3 MP 

SEDA 

SEC 




ROR 

DATF 


MOVL 

EQU 

* 



LDA 

SRCE__ 



CMP 

<MOVE 



LDA 

SRCE +1 



SBC 

>MC)VE 



BCC 

DCHK 


* done 

• 




JMP 

(MELO ) 


* data 

flag check 


DCHK 

BIT 

DATF 



BVS 

MOVl 



BMI 

TPE3 


INST 

EQU 

* 



LDA 

(SRCE ) 

# Y 


STA 

BYTE 



STA 

(DEST ) 

/ Y 


JSR 

INCA_ 



TAK 




BEQ 

SEDA 



* instr Lype check 


CMP 

*$20 

JSR 

BEQ 

TPE3 


CMP 

#$40 

~RTI 

BEQ 

MOVL 


CMP 

#$60 

“RTS 

BEQ 

MOVL 


AND 

# $0D 


CMP 

#$08 

x8,xA 

BEQ 

MOVL 


BCC 

MOVl 


TXA 



AND 

#$1F 


CMP 

#$09 



BEQ MOVl_ 

* 3-byte instrucLion 


TPE3 

EQU 

* 


LDA 

(SRCE ),Y 


INY 



CMP 

<STAR 


LDA 

(SRCE_),Y 


DEY 



SBC 

>STAR 


BCC 

MOV2 


LDA 

(SRCE ),Y 


INY 



CMP 

<MOVE 


LDA 

(SRCE ),Y 


DEY 



SBC 

>MOVE 


BCS 

MOV? 

* alter abs adresses 


LDA 

DIST_ 


LDX 

DIST +1 


BCC 

MOVA 

* move 

w/o 

changes 

MOV2 

BIT 

DATF 


BMI 

SEDA 


LDA 

#0 


TAX 


* move 

2b addioss 

MOVA 

EQU 

* 


STA 

AD DR 


STX 

ADDR +1 


SEC 



LDA 

(SRCE ),Y 


SBC 

ADDR 


STA 

(DEST ),Y 


JSR 

INCA 


LDA 

(SRCE i,Y 


SBC 

ADDR +1 


JMP 

SD 

* move 

lb data 

MOVl 

EQU 

* 


LDA 

(SRCE ),Y 

SD 

STA 

(DFST ) , Y 


JSR 

INCA 


JMP 

MOVL 


*-mc SRCE, DEST - 

INCA_ INC SRCE 

BNr * + 4 

INC SRCE_rl 

INC DEST 
BNE *+4 

INC DEST_+1 

RTS 


*-start- 

ORG RUNA_ 

DTA A(MOVE ) 


END 

Podczas asemblacji powstanie plik 
typu COM, który można uruchomić 
spod DOS-u lub COS-u Zaprezentowa¬ 
ne tu urządzenie *"B ” jest pomocne 
przy testach własnych programów I/O 
Pozwala zapisywać dane, mrugając do 


taktu ramką obrazu i odczytywać lo¬ 
sowe pliki nie zawierające zer (oczy¬ 
wiście dane odczytywane nie maja 
żadnego związku z zapisywanymi) 


Janusz B Wiśniewski 



Errata 

W TA 6 91 do nieśmiertelnego Zgry- 
wusa zakradł się drobny błąd wskutek 
którego Zgrywus+ może nieprawidło¬ 
wo zgrywać niektóre pliki w formacie 
“BOOT 1 Aby usunąć tę usterkę nale¬ 
ży ostatni znak w wierszu 64 poprawić 
z 4 na 6 (w wyniku tego kod kontrol¬ 
ny zmieni się z EQ na HI) Wszystkich, 
którzy na własnej skórze odczuli ten 
feler nowego Zgrywusa, najmocniej 
prze praszamy 

Do artykułu zatytułowanego Gene¬ 
rowanie przebiegów impulsowych, 
zamieszczonego w TA 7/81, wkradł się 
błąd Zakończenie programu w języku 
asemblera wydrukowane jako 


KONIEC 

rzeczywistości wyglądać 


KONIEC 

Czytelników i Autora serdecznie 
przepraszamy 


CLI 

RTS 

END 

powinno w 
tak. 

CLI 

PLA 

PLA 

BRK 

FND 


W TA 7/81 coś powyjadało znaki 
z programów w rubryce '6 linii 

program jest ma byc 

Refleks/3 X+32K %+32<>K 

Rurka/13 S16122 3016122 

Rurka/14 7“4PO ? “4PO 

Rurka/16 SITION0 SITION 0 

Rurka/24 24DATA137 24 DATA 137 
Rurka/25 2SDATA188 25 DATA 188 

Przepraszamy 


Redakcja 
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ODBIOR TRANSMISJI RTTY 


J 


Transmisja RTTY na falach krótkich z szybkość ą 
45 50B stosowana jest przez służby meteorologicz 

ne i agencje prasowe a także w radiokomunikacji 

amatorskiej W artykule opisano sposób wykorzy 
stania 8 bitowego komputera ATARI do odbioru 
transmisji dalekopisowej nadawanej droga radiową 
(RTTY) Przedstawiono schemat przystawki umozli 

wiającej współpracę komputera i odbiornika radio 
wego oraz opracowane przez autora programy 

Transmisja RTTY 

Od dziesięcioleci juz w dalekopisach elektronie 
chamcznych stosowany jest asynchroniczny kod 5 
bitowy Każdy wysyłany znak złozony jest z 1 bitu 
startu, 5 bitów zawierających kod znaku oraz 1,5 bi 
tu stop Przy szybkości 5GB każdy bit ma długość 
20ms Bitów informacyjnych jest tylko 5, co oznacza 
zaledwie 32 kombinacje, a to za mało zęby przesłać 
wszystkie znaki alfabetu cyfry itd Poradzono sobie 
dzieląc wszystkie znaki na dwie grupy Jedna to li 
tery druga zaś cyfry i znaki przestankowe Odpo 
wiedme kody przełączają dalekopis na drukowanie 
aktualnie potrzebnej grupy znaków 

Odbiór sygnału RTTY 

W transmisji radiowej sygnału dalekopisowego 
stosowane jest z reguły kluczowanie częstotliwości 
nośnej nadajnika (FSK ang Frequency Shift Key 
mg) Stanom "O i "1" odpowiadają częstotliwości 
różniące się o 170 lub 850Hz Zadanie odebrania 
i zdekodowania transmisji wykonuje się w następu 
jących krokach 

1 - zamiana kluczowania częstotliwości na kluczo¬ 
wanie amplitudy na poziomie możliwym do przelwa 
rzama przez komputer 


2 dekodowanie znaków, przesyłanie ich na ekran 
monitora oraz do pamięci w celu ew zapisania na 
dyskietkę do późniejszego przejrzenia lub wydruko 
wania Pierwsza część procesu realizować trzeba 
w przystawce do odbiornika radiokomunikacyjnego 
Druga wykonuje w całości komputer, zastępując 
wielce skomplikowany dalekopis mechaniczny, za 
wierający kilogramy przekaźników, silników, sprzę 
gieł elektromagnetycznych . Szybkość transmisji 
50B jest jak na "warunki komputerowe bardzo ma 
la Można dzięki temu umknąć wyłaezama obrazu 
w czasie odbioru znaków Pojawiają się one na ekra 
me na bieżąco, co jest sporą atrakcją przy korzysta 
mu z programu 

Przystawka do odbioru sygnału 
z kluczowaniem częstotliwości (FSK) 

1 Na wyjściu odbiornika komunikacyjnego, pra 
widłowo dostrojonego do odbieranej fali, otrzymuje 
się sygnał o częstotliwości ok 2500Hz kluczowanej 

z dewiacją 850 lub 17QHz Istnieje wielka rozmai 
tość układów do dekodowania transmisji FSK Moje 
rozwiązanie oparłem o układ scalony OL 1200, który 
zwykł pracować jako wzmacniacz i detektor FM na 
częstotliwości lO,7MHz Jak się jednak okazało, pra 
cuje on doskonale również na częstotliwościach aku 
stycznych Obwód Li Cs zapewnia wstępną sele 
ktywność, zaś L2 C7 to obwód referencyjny dete 
która FM Na wyjściu (7) układu USl uzyskuje się 
juz sygnał z kluczowaną amplitudą (ok lV pp ) Syg 
nał ten wraz z napięciem odniesienia z końcówki 
(IO) USl kierowane są do wejść wzmacniacza opera 
cyjnego US2, pracującego jako komparator Wzmac¬ 
nia on sygnał do amplitudy bliskiej napięciu zasila¬ 
nia 1 pozwala odfiltrować zakłócenia dzięki ogram 
czemu pasma przenoszenia (Cli) Połączone jako m- 
wertery bramki układu US3 formują ostatecznie 
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Tranzystor wyjściowy steruje diodę LED wskazują¬ 
ca optycznie stan logiczny na wyjściu oraz transop 
tor, którego fototranzystor wyjściowy połączony 
jest do gniazda joysticka 1 między końcówkę masy 
i wejście TRIO Wskazane jest. aby transoptor mon 
tować wewnątrz wtyku unika się w ten sposób wy 
prowadzania zakłóceń z komputera do odbiornika 
przez promieniowanie z przewodu łączącego kom 
puter z przystawką Sposób montażu transoptora 
winien zagwarantować galwaniczne oddzielenie 
komputera od przystawki Napięcie zasilające przy 
stawkę (najlepiej stabilizowane) powinno wynosić 


(9) spotykanego w krajowych odbiornikach układu 
UL1211N Sygnał wyjściowy o częstotliwości aku 
stycznej podawany jest na wyjście (WY) do dalszego 
dekodowania FSK oraz na wyjście (SŁ) do dowol¬ 
nego typu słuchawki, która bywa później bardzo po¬ 
mocna przy dostrajaniu odbiornika do stacji Oba 
omawiane układy można umieścić w jednej obudo 
wie Długość przewodu ekranowanego łączącego 
z odbiornikiem me powinna przekraczać ok 30 cm 

URUCHOMIENIE UKŁADÓW 



Odbiór RTTY jest możliwy nawet na zwykłym od 
biormku z zakresem fal krótkich Musi on pokrywać 
odpowiednie pasma Niezwykle istotna jest stabil 
ność czasowa częstotliwości dostrojenia - lOOHz to 
już bardzo dużo przy odbiorze FSK 1 Dostatecznie 
dobrej stabilności można oczekiwać w odbiornikach 
wyższej klasy z rozciągniętymi zakresami fa! krót 
kich (sam używam radia Sabina R610 z ELTRY) 
W celu uzyskania na wyjściu sygnału potrzebnego 
do dekodera FSK, trzeba odbiornik uzupełnić o de¬ 
tektor z BFO jak do odbioru telegrafii A1, czy SSB 
Schemat układu wypróbowanego przeze mnie poka 
zany jest na rys 2 Sygnał z odbiornika najlepiej po 
bierać z końcówki ostatniego filtru pośredniej czę 


Do uruchomienia i zestrojenia układów przysta 
wki potrzebny jest komputer ATARI, miernik uni 
wersalny i najprostszy nawet oscyloskop (ew mili 
woltomierz szerokopasmowy), 

1. Dekoder FSK 

a Przyłączyć wyjście fonu z gniazda monitorowe 
go komputera do wejść a dekodera Do punktu PPt 
przyłączyć oscyloskop lub nnhwoltomierz napięcia 
zmiennego, a do punktu PP2 miernik uniwersalny 
na zakresie toV napięcia stałego 

b Wczytać 'Turbo Basic XL' i uruchomić następu 
jacy program 

LP 10 POKE 731,1:? CHR$(12b) 

HB 20 FOR F=2100 TO 2800 STEP 20 
ZX 30 X=INT((894895-7*F)/F) 

Ol 40 CLOSE #2 :OPEN #2,4,0,"K:":GET #2,Z 
OJ 50 DSOUND 0,X,10,15 
PM 60 ? F 

YX 70 NEXT F:POKE 731,0:CLOSE #2 

c Kolejne naciskanie dowolnego kiawtsza powo 
duje generację sygnału, którego zmieniająca się co 
20Hz częstotliwość jest wypisywana na ekranie Na 
nosząc wskazania obu mierników na wykres w fun 
kcji częstotliwości, powinniśmy uzyskać charaktery 
styki zbliżone do pokazanych na rys 3 

Ewentualne przesunięcie maksimum obwodu we¬ 
jściowego (PPl) względem fo ki żywej na wyjściu 
(PP2) trzeba skorygować np dobierając wartości 
kondensatorów w obwodach rezonansowych 
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'¥ X 


Upp AJpp 


- NAP ĘC E STAŁE PP, 

- - NAP ĘCIE ZM ENNE PP 2 


[mV- 


20C- 


100 - 


[V] 


2 >03 2200 2303 2400 ?500 ?i00 2700 2800 f 

fu [Hz 

Przebiegi napięć w funkcji częstotliwości 
w punktach pomiarowych ppl i pp2 

d. Uruchomić następujący program- 

OB 10 REM GENERACJA PROSTOKĄTA 10ms/20ms 
SZ 20 REM Z DEWIACJA 200HZ 
TE 30 INPOT "PODAJ WARTOŚĆ F0= ",F 
SH 40 XL=INT((894895-7*(F-100))/(F-100)) 

NI 50 XH=1NT((894095-7*(F+100))/{F+100)) 

OU 60 DSOUND 1, XI,, 10,15 
JM 70 IOR F=1 TO 12:NEXT F 
GQ 80 DSOUND 1 , XH ,9, 15 
LJ 90 TOR F=1 TO 24:NEXT F 
RA 100 GOTO 60 


Generuje on sygnał symulujący transmisję ' FSK". 
kolejno po ok lO i 20ms częstotliwości fo+ lOOHz 
i fo lOOHz, gdzie fo jest częstotliwością środkową 
zmierzona w poprzednim kroku procedury Na czas 
pomiaru emiter tranzystora wyjściowego w trans 
optorze połączyć z masą, zaś kolektor przez rezy 
stor ok 4 7k z ( + ) zasilania i wejściem oscyloskopu 
Powinno się uzyskać przebieg jak na rys 4 Polary 
zacja jego powinna się zmieniać w zależności od po 
łożenia przełącznika P 


UA 


Uz 


lOms 20ms 


Przebieg napięcia na wyjściu przy pobudzeniu 
sygnałem FSK 

Odłączyć dodatkowe elementy od wyjścia transop- 
tora Sprawdzić omomierzem, czy obie końcówki 
wyjściowe są całkowicie odizolowane od układu de 
kodera FSK Jeśli tak, można przystawkę przyłą¬ 


czyć do komputera Bezpieczniej jest robić to przy 
wyłączonych zasilamachjjrzystawki i komputera 





2. Detektor z BFO. 

a doprowadzić do wejścia sygnał pośredniej czę 
stothwości - np z odbiornika dostrojonego na ma 
ksimurn do silnej stacji Do końcówki 1 cewki Li 
przyłączyć oscyloskop lub miliwoltomierz 

b obracając rdzeniem cewki filtru wejściowego 
(Li/La) uzyskać maksimum amplitudy - rzędu 0,5V 

c Przyłączyć oscyloskop, lub słuchawkę do wy¬ 
jścia S Rdzeniem cewki L 3 /L 4 ustawić BFO na mi¬ 
nimum częstotliwości dudnień 

Program do odbioru RTTY 

Program użytkowy składa się z części basicowej 
oraz zapisanej w limach DATA' części w języku ma 
szynowym Program w języku maszynowym wykonu 
je składanie znaków oraz ich zapis na ekran 1 do pa 
mięci (od adresu $5000 do $8FFF) Jak juz wspomma 
łem, udało mi się uniknąć wytaczania obrazu w czasie 
realizacji szybkich procedur w języku maszynowym 
Do odpowiednio precyzyjnego odmierzania czasu 
użyto komórki pamięci VCOUNT Obsługa programu 
polega na wyborze pożądanej funkcji z menu. 

1 uruchamia procedurę odbioru znaków na 
ekran 1 do pamięci Po włączeniu wtyku przystawki 
FSK do gniazda joysticka 1 1 dostrojeniu odbiornika 
do odpowiedniej częstotliwości powinniśmy obser 
wować odbiór tekstu na ekranie Jeśli tak me jest 
przyczyną może być niewłaściwa polaryzacj sygna 
hi można ją skorygować przełącznikiem P Bardzo 
pożyteczny przy dostrajaniu się jest oscyloskop 
przyłączony np. do punktu PP2 Powinien pokazy^ 
wać przebieg prostokątny o najmmeszej szerokości 
impulsu ok. 20ms W czasie odbioru transmisji na 
ekran można tę funkcję przerwać, naciskając 
START+OPTION - powoduje to wyjście do menu 
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2 przeglądanie zawartości pamięci, gdzie znajdu e-i 
je się tekst odebrany przez tnterface, lub wczytany eu 
z dyskietki Przeglądanie można też przerwać przy- eh 
C iskiem SELECT (powrót do menu) ru 


3 zapis na dyskietkę tekstu ostatnio odebranego. 
Nazwę do zapisu podąje się bez rozszerzenia pro 
gram dodaje rozszerzenie TTY Teksty zapisywane 
są na dysk jako pliki ASCII i można je później odczy 
tać lub wydrukować za pomocą dowolnego edytora 
tekstów. 

4 odczytywanie z dysku wcześniej zapisanych 
plików. Po naciśnięciu "4' podawane są wszystkie 
znąjdi^jące się na dysku pliki posiadąjące rozszerzę 
nie ".TTY". Nazwę wybranego pliku trzeba wpisać 
już bez rozszerzenia. 

Każde wejście w realizację funkcji "1" lub ”4' powo 
d^je skasowanie ew istniejącego do owej chwili 
w pamięci tekstu i zastąpienie go nowym. Program 
basicowy jest dość ' czuły 1 na przeróbki. Są w nim 
odwołania do parametrów zawartych w części ma¬ 
szynowej a także synteza wierszy programu Wy 
starczy zatem nieostrożna renumeracja i kłopot go 
towy Po przepisaniu części maszynowej do pamięci, 
parametr określający szybkość tra n s m isji (50B) 
znajduje się pod adresem 1680. 



wykaz podzespołów do rys. l. 

USi - UL-1200 
OSZ - ULY-7741 
083 MCY-74011 

T- BC148 

TO - transoptor, np CQ13BP 

D • dowolna dioda LED 

Cl Cli -lOnF 

C2.C7 - O ljiF 

C3,C4 - 0,82pF 

C0.C6.C1O- lOpP 

CS - lnF 

co- 22 nF 

Rl.Rfi • lOOom 
R2.R3 4,7k 
R4.R6 - lok 
RO - lSOk 
R7 - esoom 
RS - 4700m 

Ll,L2 - oewki 37mH, np 
I300zw przewodu 0,1 mm na 
karkasie z rdzeniem od trans¬ 
formatora sterąjąoego TS12 
T813 (OTV Vela, Neptun) 


Wykaz podzespołów do rys. 2: 

08 -UL 1042 
Cl - 47pF 
C2.C3 - l,6nF 
C4 - 33nF 
CO - 47pF 
C6 - O 22uF 
C7 - 820pF 
CS - lOOpF 
CS - IOjiF 
Rl- 2200 m 
R2 - lk 
R3 • 3300m 
R4.R6 - 4 7k 
RO -270k 
R7 - esoom 
RS,,RS - 4700m 
RIO -lOOom 


HV 


BO 

US 

MM 

MC 

US 

MM 

¥K 


MS 

DR 

KM 

RL 


KM 

DB 

HZ 

SK 

EP 

W 

TK 

GB 

PP 

MD 

PH 

MH 

MA 


MH 

UU 

TI 

Al 

NF 

MC 

TO 

MG 

SC 


CN 

YE 

VD 

OM 

SC 

MD 

TO 

SN 

MR 

WL 

MC 

MS 

ZS 

OT 


LB 


BM 


IH 


AS 


DO 


AH 


BB 


KO 


LY 


UO 


MY 

Witold Prokopowicz TM 


1 REM . . . . 

2 REM * PROGRAM DO ODBIORU RTTY « 

3 REM ** autor: Mitold Prokopowicz * 

4 REM * Białystok 1991 « 

5 REM HWKI I HIIHHHHHHHHHHHHHHHHHHH H HHHHI 

IB DIM MLS (6) , COTO$ (63 , F$ (20) : IOB=84B 
2B ? £HR$(12S):POSITION IB,5:? "Jesicz 
* Chwil kii » - ** 

36 FOR 0~B TO 237:READ D:POKE £1536*01 
. D ROSCE 709, D: MEMT A 

3S GRAPHICS. B_ 


4B ? ” 

r— 

-S 

59 ? “ 


— > ODBIOR RTTY 

69 ? " 


— > PRZEJ ZYJ TEKST 

7B ? " 


- > ZAPISZ NA DYSK 

BB ? " 


— > CZYTAJ Z DYSKU 

9B ? - 


* 


1B8 CLOSE SS2 i OPEM «2,4, B, "K : •• i GET «2 C 
O 

lit CO—GO—46:IF C0<1 OR CO>4 THEN 35 
20 ON CO GOSUB 13B,140,220.296 GOTO 3 

5 

13B GRAPHICS 6:RTTV=USR(15361:RETURN 
140 •> CHR$ (1251 : FOR A=2B488 TO 28480+P 
EEK (15631 +256** (PEEK €15841 601 : ? CHRi (P 

m(oi 1 1 

15* IF PEEK (532791 07 THEN 0=36664 
168 MEMT fi 

176 ? :? ••**** KONIEC TEKSTU *HH*" 

166 ’ •• nuci snu cokolwiek" 

196 CLOSE U2 OPEN 02 4,6,"K:":GET 02,C 

6 

2B0 RETURN 

218 REM SYNTEZA HIERSZA 256 

226 ? :? "HAZHA ZBIORU DO ZAPISU”:INPU 

T COTOŚ 

236 N1=256:N2=B:GOSUB 396:TROP 35 
240 REM m MH U » H H ***** WMWMMMMMMMMMMMM MW WW 
250 REM ** 

266 REM ********************************************************** 
276 POKE IOB+2,11:POKE IOB+6,PEEK(1563 
1 * POKE I0B*9,PEEK(15B41-8B:P0KE IOB + 4, 
B:P0KE IOB+5,86 

£60 S=USR(17661:CLOSE Ol:RETURN 
29B GOSUB 456 

388 REM SYNTEZO HIERSZO 340 

316 ? :? <• PODAJ HAZM ZBIORU DO ODCZY 
TU":INPUT COTO$ 

326 111 = 348:M2—4:GOSUB 398:TR0P 35 
330 REM ************************************** * ** * ** * ************* 
340 CLOSE Ol:OPEN Ol,N2,128,"D:DDK2.TT 
V" 

358 REM MHH0HHHH0HHHHHHHHHHHHI****** * *** * 
368 POKE I0B+2,7:P0KE I0B+8,0:P0KE IOB 
+ 9,PEEK(7421-PEEK(1451 i POKE IOB + 4,O:PO 
KE IOB+5,00 

37B S=USR(176B1:CLOSE Ol 

360 POKE 1583,PEEK(IOB+61:POKE 1584,PE 

EK(IOB+91+BB:RETURN 

396 GRAPHICS B POSITION 2,2 

466 NI;" CLOSEOl:OPENOl,M2,128,CHR 

$ *341;"D:";COTOŚ;".TTY";CHR$(341 

416 ? "CONT" 

420 POSITION 2,0;PGKE 642,13 
436 STOP 

446 POKE B42,121 RETURN 

456 REH MYDRUK KATALOGU DYSKU 

466 REM TYLKO Z ROZSZERZENIEM TTY 

470 ? CHRS(1251 STROP -9»:CLOSE Ol:OPEN 

tt i e a .. TTY"* 

4 ci iŃput aiiFS:? f», :znput 01 , fS : ? f* 
:GOTO 480 

496 RETURN 

5BB DATA 1.64,169,660,141,047,066,169,0 
66,141,046,006,032,071,666,261,027,240 
,113,201,031 

516 DATA 246,101,178,189,169,666,632,0 
46,606,032 176 242,173,631,268,201,602 
,246,027,201 

526 DATA 167,208.245,676,011,606,141,6 
60,866,236,047,606,266,663,236,846,686 
,672,173,846 

536 DATA 006,261,144,246,B82,164,696,1 
64,676,601,606,166.605,169,080.141,166 
,806 173,616 

5 ( DATA 268,266,251,632,142,666,632,1 
39,006,076,166 006.173,616,288,246,666 

,169,016,013 

550 DATA 160,606,141,168.006,136,246,0 
63,676,686,886,832,139,606,173,016,260 
246,266,173 

566 DATA 160,606,696,169,169,141,624,6 
06,076,811,686,169,201,141,024,006, 076 
,611,(06,032 

574 DATA 142,006,072,162,041,032,153,0 
66,262,266,256,104.696,173,011,212,641 
,661,268,249 

566 DATA 173,811,212,641,001,240,249,6 
96,608,632,669,155,865,032,083,673,885 
,155,868,082 

596 DATA 074,078,670,067,075,604,696,0 
76,687,672,BB9,688,881,879,066,871,632 
,677,088,366 

606 DATA 632,832,651,155,645,832,847,8 
56,655,155 632 052,035,044,037,05B,848 
,653,843,941 

610 DATA 950,632,054,048,049,057,063,0 

32,032,046,647,061 

626 DATA 164,162,16,76,86,228, 
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Błąd nr 146 


Użyto niewłaściwej instrukcji 
sterowania dla danego urządze¬ 
nia, np. PUT dla klawiatury Na 
leży zmienić tę instrukcję na in 
ną, dozwoloną. 

Błąd nr 147 

Zbyt mało pamięci RAM dla po¬ 
prawnego działania systemu ope 
racyjnego. Błąd jest podobny jak 
w przypadku numer 2 dla Basic-u 
i należy przyjąć drogę postępowa 
nia taką jak w tamtym przypadku. 

Błędy nr 150.. 154 

Błędy 150.154 dotyczą portu 
szeregowego. Z uwagi na unikalny 
charakter tych błędów podaję jedy¬ 
nie przyczyny ich występowania 

Błąd nr 150 

Próba otwarcia portu szerego¬ 
wego uprzednio otwartego 

Błąd nr 151 

Brak zezwolenia na współbieżny 
tryb pracy portu wejścia/wyjścia. 
Przykładowo, przed wykonaniem 
XIO 40 należy wcześniej otworzyć 
port dla trybu współbieżnego. 

Błąd nr 152 

Złs długość bufora, jego adres 
został użyty przy operacji we¬ 
jścia wyjścia w trybie w&póibież 
nym 

Błąd nr 153 

Program chce podłączyć wejście 
lub wyjście do portu szeregowego, 
podczas gdy inny port szeregowy 
został otwarty i uaktywniony 
w trybie współbieżnym. 



Błąd nr 154 

Próba wykonania operacji we¬ 
jścia/wyjścia przez port szerego 
wy, który wymaga uaktywnienia 
go w trybie współbieżnym. 

Błąd nr 160 

Został podany zły numer stacji 
dysków. Należy zamienić go na 
zawierający się w granicach od 
1 do 4 lub zmienić sprzętowy 
numer stacji dysków za pomocą 
przełącznika umiejscowionego 
z tyłu urządzenia. 



Błąd nr 161 

Błąd jest spowodowany zbyt du¬ 
żą liczbą otwartych zbiorów. Jest 
to uzależnione od rezydującego 
Dyskowego Systemu Operacyjne 
go, należy zamknąć te zbiory, 
z których nie ma konieczności 
korzystać w danej chwili, a nastę 
pnie ponowić próbę otwarcia ko¬ 
lejnego zbioru. 


Nastąpiło przekłamanie w pro¬ 
gramie DOS-u. Niezwykle rzadko 
występujący błąd, w wypadku Je¬ 
go wystąpienia należy powtórnie 
załadować do pamięci komputera 
Dyskowy System Operacyjny Je¬ 
żeli me spowoduje to spodziewa 
nej poprawy i błąd nadal wystę 
puje, oznacza to, że DOS me jest 
w stanie wykonać zadanej opera 
cji, trzeba użyć innego DOS u 


Błąd nr 162 

Brak wolnego miejsca na dys¬ 
kietce Wszystkie sektory prze 
znaczone do przechowywania da 
nych zostały zajęte. Należy zapi 
sywany zbiór nagrać na innej, 
wolnej dyskietce, natomiast nie 
dokończony plik na przepełnionej 
dyskietce skasować ze względu 
na ie°o bezużyteczność 


Błąd nr 164 

Kontynuacja zbioru jest niewła¬ 
ściwa Każdy sektor pliku ma za 
kodowany numer pliku i numer 
kolejnego sektora tego pliku 
W wypadku, gdy numery plików 
nie będą zgadzały się, wystąpi 
właśnie ten numer błędu. Aby 
usunąć ten błąd i jednocześnie 
naprawić dyskietkę, należy pod 
dać ją weryfikacii fnp progra 



Zamawiam nagrane na 

kasecie 

dysku 

programy zamieszczone w 

numerze TA 

skr, poczt, 702 

<\ vK;i . 

ime nazwtsko 


1 35-959 Rzeszów 2 

iJtca. nr domu mtesznarua 


~ ™.-.-. 

koć pocztowy miefscowosc 


















DOS-u zwracającego uwagę na 
zabezpieczenia plików, należy ten 
plik wcześniej odbezpieczyć 

Błąd nr 168 

Niewłaściwa instrukcja sterująca 
urządzeniem zewnętrznym Należy 
sprawdzić podane parametry 
w procedurach sterujących 


Wystąpienie błędu zostało spo 
wodowane użyciem niewłaściwe 
go znaku w nazwie zbioru Zasa 
dy, według których należy postę 
pować, aby ustrzec się tego błę 
du 

a) pierwszy znak nazwy jest literą 
lub znakiem (wiele DOS ów do¬ 
puszcza też stosowanie znaku 
na prawach litery) 

b) kolejne znaki składają się z li¬ 
ter, cyfr, znaków **\ ’ * lub 

znaku końca nazwy (EOLN) 

c) oznacza dowolne znaki 
w polu nazwy 

d) T oznacza dowolny znak znaj 
diyacy się na danej pozycji 

e) długość pola nazwy nie może 
przekroczyć 8 znaków, ’ ’ oznacza 
początek co najwyżej trzyznako- 
wego pola rozszerzenia nazwy, 
W wypadku wystąpienia tego błę 
du należy poprawić nazwę zbioru 
według podanych powyżej zasad, 
a następnie powtórzyć operację 

Błąd nr 166 

Bajt określony w instrukcji PO 

INT nie został znaleziony w da 

nym sektorze. 


Błąd nr 169 

Błąd został spowodowany zapeł 
nieniem całego katalogu dyskowe 
go Na jednej dyskietce można zapi 
sać co najwyżej 64 pliki Można 
skasować niepotrzebne pliki znaj 
dujące się na przepełnionej dyskiet¬ 
ce, a następnie nagrać nowy zbiór 
Jeżeli wsi^s kie pliki na dyskietce 
są niezbędne, to należy go nagrać 
na innej dyskietce 

Błąd nr 170 

Phk o podanej nazwie nie został 
znaleziony na dyskietce Należy 
sprawdzić nazwę poszukiwanego 
pliku i ewentualnie poprawić ją 
lub zmienić dyskietkę. 

Błąd nr 171 

Zbiór me został otwarty albo po 
dano złe parametry w instrukcji 
POINT Należy usunąć przyczynę 
powodtyacą niemożność otwarcia 
zbioru łub poprawić parametry 
w instrukcji POINT, a następme 
ponowić próbę wykonania operacji 


Błąd nr 173 

Poddawany operacji sektor jest 
uszkodzony Dyskowy System 
Operacyjny nie jest w stanie wy 
konać operacji ze względu na wa 
dę sprzętową Uszkodzoną dys 
kietkę należy sformatować Błąd 
może objawić się podczas próby 
skopiowania dyskietki, która jest 
zabezpieczona przed tym nie 
cnym procederem 

Błąd nr 174 

W instrukcji RENAME podano 
(jako nowa) nazwę pliku już ist¬ 
niejącego na dyskietce Nie mogą 
na niej znajdować się dwa pliki 
o takich samych nazwach Należy 
użyć innej nazwy 

Błąd nr 175 

Błąd wynika z próby ładowania 
do pamięci komputera pliku nie 
mającego struktury binarnej Na 
leży phk załadować innym pro 
gramem 


Błąd nr 176 

Analogicznie jak w przypadku 
błędu numer 172 - dotyczy DOS2 
i DOS3. 


Błąd nr 177 

Dyskietka jest uszkodzona logi 
rznie, należy ją zweryfikować 

BOOT ERROR 


Błąd nr 167 

Nie jest możliwe zapisanie zbio¬ 
ru ze względu na istniejący za 
bezpieczony przed zapisem zbiór 
o takiej samej nazwie Używając 


Błąd nr 172 

Za pomocą program DOS2 me 
ma dostępu do zbiorów DOSI i od 
wrotrue W celu zlikwidowania błę 
du należy wcześmej przeprowadzić 

odpowiednia konwersję 


Błąd występujący wyłącznie 
podczas uruchamiania systemu 
Pojawia się, gdy zachodzi jedna 
z poniższych przyczyn- 

a) w przypadku magnetofonu złe 
ustawiono taśmę (nie nc. początku 
-.Yfe* iłu odwtąiącego) iu t> taśma 
jest uszkodzonaę 

b) w przypadku stacji dysków nie 
włożono dyskietki lub złe to zro 
biono, me zamknięto stacji dysków 

c) urządzenie zewnętrzne łub połą 
ezerue jest uszkodzone Sposób po 
stępowania jak w przypadku wy 
stąpienia błędów o numerach 138, 


139, 140, 142, 143 


LEON 



Program Super Keyboard wzbogaca klawiaturę 
ATARI o nowe, niedostępne dotąd funkcje 

1. Klawisze funkcyjne 

• 8HIFT/CONTROL/5 - zimny start, może być 
stosowany zamiast wytaczania komputera i po 
nownego włączania go Dla umknięcia przypad 
kowego naciśnięcia wymaga poprzedzenia kla¬ 
wiszem ESC. 

• SHIFT/CONTROL/6 przełącza zestaw znaków 
ze standardowego na międzynarodowy i z po 
wrotem 

• SH1FT/CONTROL/7 włacza/wyłącza dźwięk to¬ 
warzyszący operacjom we wy 

• SHIFT/CONTROL/8 wlacza/wyłącza dźwięk to 
warzyszący naciskaniu klawiszy 

• SHIFT/COW TKOL/9 blokuj e/u wa Ima klawiaturę 

• SHIFT/CONTROL/O włącza/wyłącza wyświetla 
nie obrazu (służy do zwiększenia szybkości 
działania komputera). 

• SHIFT/CONTROL/ESC włącza/wyłącza "tryb 
Spectrum". 


2. Tryb Spectrum 

Tryb ten polega na przyporządkowaniu pewnym 
klawiszom całych rozkazów Basicu Aby otrzymać 
na ekranie tekst danego rozkazu, używamy stosow 
nego klawisza z poniższego spisu, trzymając wciś¬ 
nięty SHIFT 


A 

- DOS 

B 

- BYE 

C 

- CLR 

r> 

- DATA 

E 

- END 

F 

- FOR 

G 

- GOTO 

11 

- GOSUB 

I 

- INPUT 

j 

- GRAPHICS 

K 

- POKF 

L 

- LIST 

M 

- PEEK 

N 

- NEXT 

O 

- OPEN 

P 

- POSITION 

0 

- RESTORE 

R 

- RFAD 

S 

- SETCOLOR 

T 

- TRAP 

U 

- USR( 

V 

- STEP 

W 

- THEN 

X 

- RETURN 

Y 

- SOUND 

Z 

- CHR$ 




Space - NEW Return - RUN 

Caps - SAVE Logo - LOAD 

(klawisz LOGO znany tez jest jako poz /neg ) 
Ponieważ autor nadesłał do redakcji tekst progra¬ 
mu w języku asemblera (format CŁA), przeto prezen- 
tiyę go w tej formie i korzystając z okazji uzupeł 
mam o kilka słów komentarza 



* Program 

* Autor 

* Data 

opt 

* - Etykiety 


super Keyboard 2.0 
Maciej Czarnoto 
1991-09-03 // 

%100101 


sc6 

sc5 


keycl 

equ 

$f 983 

putch 

equ 

$f 2b0 

coidst 

equ 

$e477 

ciov 

equ 

$e456 

kbcode 

equ 

$d209 

pt text 

equ 

$c642 

kbcods 

equ 

$0">f c 

rn 

equ 

$02f 5 

chbas 

equ 

$02f 4 

oldkbc 

equ 

$02f 2 

dnasav 

equ 

$02dd 

noc 1 

equ 

$02db 

escfIg 

oqu 

$02a2 

chsptr 

equ 

$026b 

keydis 

equ 

$026d 

diriactl 

equ 

$022f 

keyvec 

equ 

$0208 

losnd 

equ 

$0041 

dosini 

equ 

$000c 

*-Stale 


esc 

equ 

$dc 

scO 

cqu 

$12 

sc9 

equ 

$f0 

sc3 

equ 

$f 5 

sc7 

equ 

$f 3 



' iiri ii n fr f i j] 

.-j.i 



~ nagi 


equ $db ,a 

equ $dd . 

' ( \ 

Instalacja 


X 


org 

$9000 

ldx 

If SOI 

Ida 

keyvec,x 

sta 

jump+1,x 

Ida 

dosini,x 

st.a 

reju+1,x 

dex 


bpi 

ml 

Ida 

#$£f 

sta 

rn 

Ida 

<beg 

sta 

keyvec 

sta 

keybuf 

Ida 

>beg 

sta 

keyvec+l 

sta 

keybuf+1 

Ida 

<t eset 

sta 

dosini 

Ida 

>reset 

sta 

dosini+1 

ldx 

<nagl 

Idy 

>nagl 

jmp 

pitext 


s*-, 


\ \ 










1 


\ 


w 


dta c'Super Keyboard 2.0 ' 
dta c'by M.Czai notab($9b) 


Klawisze F1-F6, SK ON/OFF 
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org 

$0500 




tay 


beg 

txa 




*_ 

Wez z tablicy nr tekstu.0=brak 


pha 








tya 




newnum Ida 

num, y 


pha 





beq 

quit 


Ida 

kbcode 




asl 

e 


cmp 

#sc0 




asl 

e 


bne 

qi 







Ida 

dmactl 


s+c+0 

*_ 

Wydruk 4- 

-bajtowego tekstu 


eor 

#$22 


poke 559,0/34 





sta 

dmactl 




ldx 

#$03 

qi 

cmp 

#sc9 




tay 



bne 

q2 


s+c+9 

15 

tya 



Ida 

keydis 


poke k 255/0 


pha 



eor 

#$f f 




txa 



sta 

keydis 




pha 


q2 

cmp 

#sc8 



newtab Ida 

tab,y 


bne 

q3 


s+c+8 


jsr 

putch 


Ida 

nocl 


poke 731,0/1 


pla 



eor 

# $01 




tax 



sta 

nocl 




pla 


q3 

cmp 

ff sc7 




tay 



bne 

q4 


s+c+7 


iny 



Ida 

losnd 


poke 65,0/3 


dex 



eor 

#$03 




bpi 

15 


sta 

iosnd 






q4 

cmp 

#sc6 




jsr 

keycl 


bne 

q5 


s+c+6 





Ida 

chbas 


poke 756,204/224 

* _ 

Powrot z 

przerwania 


ldx 

chsptr 







sta 

chsptr 



out 

pla 



stx 

chbas 




tay 


q5 

cmp 

#sc5 




pla 



bne 

q6 




tax 



Ida 

escflg 


s+c+5 


pla 



beq 

q6 


a=usr{$e477) 


rti 



D m P 

coldst 






q6 

cmp 

#esc 


wyłącznik 

quit 

pla 



bne 

q i 


trybu 


tay 



Ida 

rn 


SPECTRUM 


pla 



eor 

#$ff 




tax 



sta 

rn 



jump 

]mp 

jump 

q7 

Ida 

rn 







bne 

q8 



* _ 




jmp 

quit 






q8 

jmp 

start 



•k _ 

Dane dla 

klawiszy 

reset 

ldx 

#$01 


Tu skacze 

num 

dta 

d',* + / 05>) 

rei 

Ida 

keyvec, 

X 

RESET 


dta 

d'6 # "8: 


sta 

jump+l, 

X 



dta 

d' ; . - <2 %9 471' 


Ida 

keybuf, 

X 



dta 

d' &($ ="3! ' 


sta 

keyvec, 

X 






dex 




tab 

dta 

C'????D0S BYE CLR ' 


bpi 

rei 




dta 

C'DATAEND FOR GOTO' 

re ju 

gmp 

re ju 




dta 

C'GOS.INP.GRA.POKE' 







dta 

c'LISTPEEKNEXTOPEN' 

keybuf 

dta 

a($00) 




dta 

c'POS . RES.READSET.' 







dta 

C' TRAPUSR ( STEPTHEN ' 

*- Program 

główny 




dta 

C 'RET.SOU-CHR$NEW ' 







dta 

C' LOADSAVERUN ' 


org 

$600 












Samouruchomienie 

start 

Ida 

kbcode 


Odrzucenie 





bmi 

quit 


>= $80 


org 

$02e0 


cmp 

#$40 


i < $40 


dta 

a(pocz) 


bcc 

quit 







* _ 


Obetnij bit 7 i 6 


end 








Antic-out 


ProgTam L Gasińskiego, jak nietrudno zgadnąć, 
pozwala wyłączyć wyświetlanie obrazu, co znacznie 
przyspiesza pracę naszego komputera Klawisz SE 
LECT wyłącza obraz a OPTION włącza go 


MY 1 DATA 104,162,0,173,10,210,41,3,24,10 
5,1,157,16,39,232,224,160,208,240,162, 
0,173,10,210,157,176,39,232,224 
QP 2 DATA 160,208,245,162,0,169,16,157,15 
,100,232,224,160,208,246,169,82,141,0, 
2,169,6,141,1,2,169,192,141,14 
NB 3 DATA 212,173,48,2,141,203,0,173,49,2 
,141,204,0,160,0,177,203,41,127,73,128 
,145,203,96,72,138,72,152,72,162 
BM 4 DATA 0,189,176,39,24,125,16,39,141,1 
0,212,141,0,208,157,176,39,232,224,160 
,208,235,104,168,104,170,104,64 
NW 5 FOR Q=0 TO 115: READ Z:POKE 1536+Q,Z: 
NEXT Q:POKE 559,62:POKE 54279,100:POKE 
53277,2:POKE 704,14:X=USR(1536) 


Czekaj 


GB 1 POKE 559,0 

WT 2 FOR 1=1536 TO 1572:READ A:POKE I,A:N 
EXT I:A=USR(1536): DATA 104,160,10,162, 

6.169.7.76.92.228 

RG 3 DATA 173,31,208,201,3,208,8,169,34,1 
41,47,2,76,98,228,201,5,208,5,169,0,14 

1.47.2.76.98.228 

LA 4 ? CHR$(125):POSITION 2,4:FOR 1=1 TO 
5:? I:NEXT I:? "?CHR$(125):POKE 842,12 
:POKE 559,34:L." 

MY 5 POSITION 2,0:POKE 842,13:STOP 



Tłuste 

litery 

Ten progra¬ 
mik pozwala 
uzyskać po¬ 
grubione lite¬ 
ry poprzez 
przepisanie 
i umiejętną 
modyfikację 
standardo¬ 
wego genera¬ 
tora znaków 


WE 1 1=1536 

SI 2 TRAP 3:READ A:POKE I,A:1=1+1:GOTO 2 
0F 3 X=USR(1536) 

NF 4 DATA 104,169,0,133,204,133,204,133,2 
06,169,224,133,205,169,152,133,207,160 
,0,177,204,74,17,204,145,206,200,192 
GF 5 DATA 255,208,244,230,205,230,207,169 
,228,197,205,208,232,169,152, 141,244,2 
,96 



Zawieja 

Bardzo efektowne 
wykorzystanie możli¬ 
wości grafiki PM autor¬ 
stwa Rafała Bieleckie¬ 
go Jeśli zima znów po¬ 
częstuje nas szarym 
błotem ten program 
będzie jak znalazł 


Drugi program Rafała Bieleckiego choć krótki, 
z pewnością przyda się w niejednym większym pro 
gramie. Jego jedyną, ale bardzo pożyteczną funkcją 
jest oczekiwanie na naciśnięcie klawisza SHIFT. 



EV 1 CZEKflJ-USR tftPR C"hŁ liii ? 


Circle 


Wiemy wszyscy, jak powolne są funkcje trygo¬ 
nometryczne w ATARI BASIC. Rysowanie okręgu 
ciągnie się bez końca Adam Pisarek podsuwa nam 
inne rozwiązanie. 

SL 1 GRAPHICS 24:X=160:Y=80:FOR R=80 TO 0 
STEP -5 

GA 2 COLOR 1:POKE 710,0:E=R*2:A=R:B=0:FOR 
C=R TO R* 0.6 STEP -2:D=SQR(E-C~2):PLO 

T X+C,Y+D:DRAWTO X+A,Y+B 
FR 3 PLOT X-C,Y+D:DRAWTO X-A,Y+B:PLOT X+C 
,Y-D:DRAWTO X+A,Y-B:PLOT X-C,Y-D:DRAWT 
O X-A, Y-B:PLOT X+D,Y+C:DRAWTO X+B,Y+A 
XU 4 PLOT X-D,Y+C:DRAWTO X-B,Y+A:PLOT X+D 
,Y-C:DRAWTO X+B,Y-A:PLOT X-D,Y-C:DRAWT 
O X-B,Y-A:A=C:B=D:NEXT C:NEXT R 
ZZ 5 IF PEEK{ 53279)06 THEN 5 
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Bardzo poważnym problemem 
jest sposób poprawnego zamsta 
lowama Dyskowego Systemu 
Operacyjnego Niedopuszczalna 
jest sytuacja, gdy brak jednolitej 
konwencji dotyczącej DOS ów po 
woduje ich instalację według 
własnego widzi mi się 

Rezydujący DOS powinien za 
chowywać się w taki sposób, aby 
programy pracujące pod jego 
nadzorem me kolidowały z rejo¬ 
nami pamięci wykorzystywanymi 
przez kod maszynowy i bufory 
operacyjne DOS u 

DOS powinien charakteryzować 
się stałjm obrzarem wykorzysty 
w Rn ej pamięci Przyjęto ze dolnym 
adresem jest początek siódmej 
strony pamięci (adres 1793 czyli 
$700) Jest faktem oczywistym, że 
od żadnego DOS u me można wy 
magać, aby posiadał określony li 
mi zajętej pamięci Każdy Dysko 
wy System Operacyjny jest specy 
ficzny, więc długość kodu i liczba 
buforów jest inna Do m formowa 
ma pozostałych programów o naj 
wyższym wykorzystywanym adre 
sie pamięci służy słowo MEMLO 
(lokacja 743 czyli S8e7) Oezywi 
ście im mniej pamięci zajmuje 
DOS, tym więcej zostaje jej dla m 
nych programów (np dla BASIC 
u) Dobrym zwyczajem jest, aby 
DOS i jego Command Processor 
me przekraczały adresu 8192 
($8000) Istnieją programy posze 
rzające możliwości systemu, zwane 
nakładkami lub programami rezy 
dentnymi, które po uruchomieniu 
przyczepiają się na stałe do DOS u, 
podnosząc wskaźnik MEMLO. Taki 
sposób dobudowywama nowych 
funkcji do istniejącego systemu 
jest bardzo wygodny, lecz możliwy 
tylko z poprawnie skonstruowany 
nu DOS arm Do takich należa 
SpartaDOS, Dos XL, DC® 8 5 
w wersji z CP, a także, w pewnym 
sensie, COS Próba zapisu w obsza 
rach pamięci powyżej szóstej stro 
ny, a poniżej wartości określonej 


przez MEMLO jest zabroniona, bo 

może spowodować uszkodzenie 
DOS u, a więc jego meprawidio 
we działanie, co grozi utrata da¬ 
nych na dyskietce 

Programy, które chcą korzy 
stać z możliwości DOS u wiedzą 
zatem, gdzie me należy niczego 
zmieniać Nie wiedzą jednak, jak 
praktycznie obsługuje się DOS, 
znają tylko zasady korzystania 
z centrali operacji wejścia/wyjścia 
(CIO - Central Input/Output) 

CIO me ma pojęcia co znajduje 
się w danej części DOS u, musi za 
tem istnieć łącznik pomiędzy DOS 
em a CIO W tym celu istnieje tabh 
ca HATABS (lokacja 794-831 czyli 
$3 la $33f), zawieraj aea spis wszy 
stkieh aktywnych w danej chwili 
urządzeń zewnętrznych Podzielona 
ona jest na trzybajtowe segmenty, 
z których każdy zawiera informacje 
o jednym urządzeniu pierwszy bajt 
jest Literowym symbolem peryferia 
(dla stacji dysków jest to D), bajty 
drugi i trzeci stanowią adres po 
czątku tablicy sterownika, o której 
potem Standardowo system opera 
cyjny wpisuje do tablicy HATABS 
następujące urządzenia, drukarkę 
(P), magnetofon (C), edytor ekra 
nowy (E), ekran (S) i klawiaturę 
(K) Prawidłowe dopisanie nowego 
peryferia polega na umieszczeniu 
jego literowego identyfikatora 
w kolejnym, wolnym segmencie 
(pole jest wolne, gdy zwiera zera) 


oraz adresu tablicy sterownika 
tego urządzenia 

Tablica sterownika (ang handler) 
zawiera szereg wektorów o okre¬ 
ślonym znaczeniu Ich kolejność 
jest następująca OPEN (wektor 
otwarcia pliku), CLOSE (wektor za 
mknięcia pliku), GET BYTE (we 
ktor pobrania bajt u z urządzenia 
źródłowego), POT BYTE (wektor 
wysłania bajtu do peryferia). GET 
STATUS (wektor pobrania statusu), 
SPECIAL (wektor specjalny) 

Te wektory me sa dokładnymi 
adresami danych procedur, lecz 
powinny mieć wartość o jeden 
mniejszą od właściwego umiej 
seowienia procedury Spowodo 
wane jest to sposobem ich wyko 
rzystama pobrany z tablicy adres 
jest umieszczany na stosie, a na 
stępnie wykonywana jest mstru 
keja RTS (powrotu z podprogra 
mu) Przykładowo, gdy proce 
dura OPEN zaczyna się pod adre 
sem 1998 ($7c8), to wektor powi 
men mieć wartość 1991 ($7c7) 

Gdy poprawnie została skon 
struowana tablica sterownika 
oraz urządzenie pozytywnie zam 
stalowano w tablicy HATABS, to 
system operacyjny komputera juz 
będzie "widział' DOS 

Sa to juz prawie wszystkie pro 
bierny związane z dobrą instalacją 
rezydentnego DOS u 'Prawie 
wszystkie", ponieważ pozostał je 
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szcze bardzo ważny problem 
właściwej pielęgnacji MEMLO 
i tablicy HATABS ze względu na 
destruktywną działalność klawi 
sza RESET Naciśnięcie tego 
przycisku powoduje między inny 
mi zniszczenie DOS owego wpisu 
w tablicy HATABS oraz wskaźni 
ka MEMLO 

Jak należy obsługiwać RESET? 
Prawdę mówiąc istnieje kilka teo 
rii na ten temat Niech o złożono 
ści tego problemu świadczy fakt, 
że nawet DOS 2 5 firmy Atari 
Corporation niepoprawnie obsłu 
guje RESET. 

Istnieją dwa wektory, które na 
leży właściwie ustawić z punktu 
widzenia obsługi RESETu Są to. 
DOSVEC (słowo lO czyh $a) oraz 
DOSENI (słowo 12 czyli $c) Po na 
ciśmęciu klawisza RESET system 
operacyjny wykona skok do proce 
dury znajdującej się pod adresem 
zapisanym w DOS INI Powinny ssę 
w niej znajdować instrukcje aaktu 
a Imające MEMLO, HATABS oraz 
zamykające wszystkie lokalne pliki 
(RESET zamyka wszystkie bloki 
kontroli w jścia/wyjścia, więc me 
ma możliwości zamknięcia plików 
na dyskietce) Wektor DOSVEC 
natomiast zawiera globalny adres 
powrotu do DOS u, przykładowo 
wydanie w Bas tu polecenia DOS 
spowoduje praktycznie skok przez 
wektor DOSVEC Pod adresem 
wskazywanym przez słowo lO po 
winny przede wszystkim znąjdo- 
wać się instrukcje kasujące flagi 
przerwania i trybu dziesiętnego 
(CLI oraz CLD), inicjujące stos 
(LDX #$ff; TXS), zamykające 
w szystkie pliki, uaktualniające tab 
hcę HATABS (jeśli np. napisaliśmy 
bardzo ważny program w Basic u, 
a z bliżej nieokreślonego powodu 


tablica została zniszczona, to ta 
kie rozwiązanie może umożliwić 
nagranie stworzonego progra 
mu) 

Wiadomo ze stary system ope 
racyjny komputerów ATARI serii 
XL/XE me posiadał instrukcji li¬ 
kwidującej dziesiętny tryb pracy 
po naciśnięciu klawisza RESET 
i jeśli taki tryb był włączony, to 
komputer po prostu przestawał 
działać, należało go wyłączyć 
i powtórnie włączyć Ciekawskim 
polecam uruchomienie jakiego¬ 
kolwiek programu z ustawioną 
flaga trybu dziesiętnego (SED) 

Dobrym zwyczajem wydaje mi 
się również ustawienie w proce 
durzę obsługi wektora DOSVEC 
większej prędkości czytania kia 
wiszy ze względu na żenująca 
prędkość ustawianą przez system 
operacyjny komputera Gdy na 
ciśniemy klawisz to będzie on 
odczytany powtórnie po czasie 
zawartym w komórce 729 ($2d9) 
Komórka 730 ($2da) określa tern 
po powtórzeń, gdy trzymamy kia 
wisz wciąż naciśnięty 

Kontrowersyjną jest sprawa 
wzajemnego wspierania się wekto 
rów DOSVEC i DOSINI, tzn. wy 
wołanie procedury o adresie zapi 
sanym w DOSINI spowoduje usta 
wienie adresu DOSVEC i vice ver 
sa Osobiście opowiadam się za jed¬ 
norazowym ustawieniem tych we 
ktorów podczas uruchamiania 
DOS u Praktycznie adres zawarty 
w DOSVEC powinien w kazywać 
na Command Processor który po 
wykonaniu operacji niezbędnych 
dla inicjabzacji natychmiast przej 
cizie w tryb oczekiwania na instru 
keje użytkownika (przypominam, 
ze DOS 2 5 wcześniej doezytuje 


swój Command Processor czyli 
program DUP.SYS) 

Warto kilka zdań poświęcić 
wykorzystywaniu przez Dyskowy 
System Operacyjny strony zero¬ 
wej DOS korzysta z komórek 
ZIOCB (lokacje 32-47 czyli $20 
$2f), przez które komunikuje się 
z CIO. Istnieje kilka komórek pa 
mięci, z których DOS może korzy¬ 
stać do własnych celów Jest to sie 
dem bajtów o nazwie FMZSPG (ad 
res 67 73 czyh $43 $49) Zwykle 
spełniają one rolę liczników, 
wskaźników bufora, służą do tym 
czasowego zapamiętania numeru 
sektora poddawanego operacji, 
długości tworzonego pliku, ltp 

Teoretycznie istnieje możliwość 
korzystania jeszcze z innych ko 
mórek na zerowej strome, z tym, 
że zmienianie wartości komórek 
powyżej adresu 128 ($80) jest za 
bronione Korzysca z tego obsza 
ru interpreter Basicu, a także 
wiele programów użytkowych. 

Poniżej adresu 128 ($80) znajdu¬ 
je się kilka komórek, które sa 
wykorzystywane tylko przy uncja 
lizacji systemu operacyjnego kom 
putera, potem są 'bezużyteczne', 
można z nich korzystać na własne 
ryzyko, ale twórcom systemów 
operacyjnych tego me polecam 

W kolejnym odcinku spróbuję 
nakreślić szkic operacji, które są 
wskazywane przez wektory ste 
równika urządzenia. 


Leon 



Ogłoszenia drobne: 


ATARI - wysyłkowa sprzedaż zesta¬ 
wów do montażu systemów TURBO 
2000 i AST. oprogramowanie w tur¬ 
bo, tanie gotowe zestawy progra¬ 
mów Informacje gratis M Szlachet- 
ka, Aleje Wojska Polskiego 14, 
24-320 Poniatowa. 


UWAGA Świetna nowa gra trzy¬ 
częściowa ROBBO 20 MB. Nagroda 
za ukończenie do końca czerwca 
1882 r - niespodzianka Cena gry 
37 OOO - kaseta, 3» OOO dysk Ma¬ 
rek Bodawita, ul Orzeszkowej 4/8, 
38-400 Tarnobrzeg 
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Jest rok 2376 Mieszkańcy przeludnionej i zanie 
czyszczonej Ziemi założyli wiele osiedli w sąsiednich 
galaktykach Sprzyjające warunki sprawiają, ze lu 
dzie żyją tam spokojnie i dostatnio Lecz pewnego 
dnia Centrum Zwiadu Kosijncznego otrzymuje me 
pokojąca wiadorriość z sektora J23 Od strony gala 
ktyki Orcaptus zbliza się potężny grad meteorów 
Mieszkańcom osiedli zagraza śmiertelne mebezpie 
czeństwo, gdyż planety zostana zbombardowane 
przez rój meteorów, miasta zniszczone, a ludzie po 
niosą śmierć 

Podjęto więc decyzję o ewakuacji mieszkańców 
z zagrozo ego rejonu przy użyciu statku ratowni¬ 
czego Ale ze względu na zakłócenia wywołane przez 
radioaktywne meteory, me mogą go pilotować pre 
cyzyjne roboty. Mozę to zrealizować tylko człowiek, 
który pos ada niepospo ite cechy jest odporny na 
radiowe i jądrowe promieniowanie. Spośród wąskiej 
grupy takich ludzi zostajesz wybrany Ty, jako najle¬ 
pszy pilot rakiet ratunkowych Operacja otrzymuje 
kryptonim SPACE RESCTJE 

Ze snu hibernacyjnego budzi Cię silny wstrząs 
statku Okazuje się, że meteory już dotarły w pobh 
że osiedli Dalsza podróż jest niemożliwa, zostawiasz 
więc statek bazę na orbicie, a sam wsiadasz do ma 
łej rakiety którą łatwiej będzie dotrzeć na planetę, 
zabrać ludzi i bezpiecznie powrócić 

Po uruchomieniu gry należy chwilę poczekać, az 
ukaże się statek z planeta. Naciśnięcie przycisku FI- 
RE powoduje zatrzymanie na orbicie statku bazy, 
otwarcie włazu i start rakiety, którą sterujesz przy 
pomocy joysticka. Rakieta porusza się ze stałą pręd 
kością, mozesz manewrować w prawo i w lewo 
Przycisk FIRE włączą silniki hamujące Twoją rakie 
tę 

Niestety w obawie, aby me narobić szkód na pla 
necie, me mozesz skorzystać z pokładowego lasera, 
którego pociski byłyby w stanie zniszczyć każdy tra 
fiony meteor Jeżeli próba me powiedzie się, to sy¬ 
stem bezpieczeństwa teleportuje Cię na statek bazę 
Mozesz wtedy wziąć następną rakietę i ponowić pró¬ 
bę Jeśli lądowanie powiodło się i stanąłeś rakietą 
dokładnie na środku lądowiska, biegną do Ciebie 
tłumy wiwatujących na Twa cześć. Okazuje się, ze 


HF 3 REM Inicjalizac ja pr ogram- , jstamn 
ie generatora znaków, wyświetlenie lud 
zi na dole ekranu 
5H 10 G03UB 110G:GOSUB 1000 
CP 15 Dl-0:SC-0:SL = 5 

AX 20 GRAPHICS 0:POKE 756,R:P0KE 752,l:SE 
TCOLOR 2,0,0:S=32:D=-1:P1=6:P2=0 
KL 25 FOR I“21 TO 23:P0SITI0N 0,l:PRINT *’ 
f";:POSITION 3B■I:PRINT ”f";:NEXT I 
KD 29 REM Rysowanie lądowiska i Meteorów 
w Kos h«o Sie 

BT 30 L= INT <23*RNDCli+51 ;POSITION L, 21;PR 
INT "■■i" : POSITIOH L 1,2 2 SPRINT 
11 : POSITION L —2 , 23 : PRINT : B=0 

: G-0 

IU 40 FOR 1=1 TO 01*10+30:POSITIOW RND(l) 
*35+1,RMD<ll*lS+3.PRINT CHR$<201;:NEXT 
I:POKE 77,0:SC0RE=SC 

SJ 43 FOR M=4 TO 0 STEP -1:DIGIT=INTtSCOR 
E/103:POSITION L+W-l,23 SPRINT CHRSC5C0 
RE ~10*0IGIT + 176); :SC0RE=DIGIT:NEKT W 
MJ 45 FOR AZ =1 TO SLlFOR W=15 TO 0 STEP - 
1:50UN0 0.10.10,W:NEKT W SOUNO 0,0,0,0 
:NEXT AZ 

WU 49 REM Przesuniecie statku-bazy 
HP 50 5 = S+D 

GQ 60 POSITION 3-1,0 : PRINT H V / 4.Ł + 4-4-4- 
+ + | ł, J CHR S C971 ; CHRS 1981 ; CHRS 1991 ; "I 4 + 
+ + + + + *■; : IF 5 <4 OR S> 31 THEN D = -D 

JI 65 IF 5 TRIG t01 =0 THEN GOTO 60 
NJ 70 FOR M=1 TO 25!NEKT M:G0T0 50 
TJ 80 POSITION 5 + 2 ,2 : PRINT ■■ ":FOR W=1 TO 
50:NEXT W:POSITION S,2:PRINT M “ : 

X = S + 2:Y = 1 

55 99 REM Sprawdzenie czy gracz uczynił r 

uc h 

XU 100 U=0:X1=X:P=5TICKC01:IF P<12 ANO Y> 
1.5 THEN GOSUB 300 

XG 120 Y1=Y+1:P=STRIGC01:IF P=0 THEN Y1=Y 
+ 0.5 

IK 129 REM Sprawdzenie kolizja 
KT 130 FOR I=X1-1 TO Hl+1:L0CATE I,Y1,A:I 
F A = 20 OR A=160 THEN GOTO 500 
UO 133 IF B=20 OR B = 160 THEN GOTO 500 
GM 135 NEXT I 

MO 139 REM Przesuniecie rakiety 
CN 140 POSITION X-1, Y : PRINT " ,, :POSITIO 
N X , Y+ 1 : PRINT •• **: X=K1 :Y=Y1: POSITION X 
— 1,Y:PRINT "abc" 

BD 145 LOCATE X,Y+1,B;IF P = 0 THEN POSITIO 
N X,Y+lS PRINT "d-TSOUND 1,20,8,15 
MR 147 IF P=1 THEN SOUNO 1,0,0,0 
ZA 149 REM Sprawdzenie poprawnego ładowań 
i a 

UR 150 TEMP=0;IF X = L + 1 AND INTCY+0.51=20 
THEN POSITION X,Y+1:PRINT CHRSC1601:SC 
=SC+50:SC0RF=SC:TEMP=1 
JP 153 IF TEMP=1 THEN FOR H=4 TO 0 STEP “ 
1:DIGIT=INTCSCORE/101:P05ITI0N L+W~l,2 
3:PRINT CHRS fSCORE-10*DIGIT+l76J ; 

HE 154 IF TEMP=1 THEN SCORE=0IGIT:NEXT W: 
GOTO 400 

UF 155 IF Y> 20 THEN GOTO 500 
LS 160 GOTO 100 

MM 199 REM Skasowanie starych weteorow i 
rysowanie nowych 

CS 200 X=L + 1:Y = 20:COLOR 32:FOR 1=3 TO 18! 

PLOT 1,1:DRAHTO 37,I:NEXT X 
GE 205 FOR 1=1 TO D1*15 + 40:POSITION RND Cl 
1*35 + 1,RND f13*15 + 3:PRINT CHRS (201 ; :NEK 
T I:C=0 

RU 207 POSITION L,21:PRINT " " 

NJ 209 REM Startowanie rakiety w Kosmos 
UT 210 SOUNO 0,5*Y+90,B,B:X1=X:Y1=Y:P=STI 
CK C01 ;IF P<12 THEN GOSUB 300 
YB 220 C=C+1:IF C=3 THEN C=0:Y1=Y-1 
HM 224 REM Sprawdzenie kolizji 
RA 225 FOR I=X1“1 TO X1+1:L0CATE I,Y1,A:I 
F A=20 THEN GOTO 500 
GR 227 NEXT I 

FP 229 REM Przesuniecie rakiety i sprawdź 
enie ruchu gracza 

JJ 230 PUSITION X-1,Y:PRINT ” •* : PO 51TIO 

N X , Y + l : PRINT •• X = X1 : Y=Y1: POSITION 

X~1,Y:PRINT "abc":POSITION H,Y+1:PRINT 
"d"; 


jest ich zbyt wielu, musisz więc powtórzyć operację 
sześciokrotnie. Nagrodą za każde poprawne lądowa¬ 
nie jest 50 punktów. Zabierasz na pokład część ludzi 
i wracasz rakietą na statek-bazę. Tymczasem zmie¬ 
nił się układ meteorów. Jest ich więcej, ale teraz 
swobodnie możesz korzystać z pokładowego lasera. 
Rozbicie meteoru daje Ci 20 punktów. 

Za każdą uratowaną grupę ludzi dostajesz 50 pun¬ 
któw, a gdy wszyscy zostaną zabrani z planety, 
otrzymujesz w nagrodę dodatkową rakietę. Aktual¬ 
ną liczbę rakiet poznasz po ilości sygnałów dźwięko- 
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YG 240 IF STRIGC0)=0 OKI* G 0 AND Y>4 THEN 
GOSUB 340 

AZ 250 F G-l THEN GOSUB 350 
VT 255 JF Y=i THEN GOTO 270 
MO 260 GOTO 210 

GI 269 REM Sprawdzenie czy rakieta szczes 
liwie ładuje na statku bazie 
TI 270 JF X<>5*2 THEN GOTO 566 
JT 275 P2~P2+1 

PE 2 80 SOUHP 0,0,6 0:POSITION S,2;PRINT ■■ 

- ■■: COLOR 32:F0R 1 = 3 TO 23! PLOT 1,1 

;DRAMTO 37,1:NEHT I 

HM 264 REM Czy wszyscy ludzue zabrani z p 
1 mety zwiększenie poziomu i skok do 
obsługi procedury BONUS 
SO 285 IF P1=0 THEN Pi-6•Dl-Dl+1:GOTO 650 
OJ* 290 GOTO 30 

PO 299 REM podprograw do przesunięcia rak 
i ety 

00 300 IF P>8 AND P<12 AND K>? THEN K1~X- 

1 

LR 310 IF P<8 AND X<36 THEN X1=K*1 
ZD 320 RETURN 
JO 339 REM Laser 

OU 340 G~1:KM=X•YM~Y:FOR 1=10 TO 100 STEP 
0:SO* ND 1,1,10,10.NEKT I:SOUND 1,0.0 

0 

FX 349 REM Przesuniecie pocisku i sprawdź 
enie kolizji z MeteoreM 
CC 350 POSITION HM, YM: PRINT ■* ";:YM=YM 1 
GJ 360 LOCATE HM,YM,A:TEMP=0:IF A~20 THEN 
POSITION KM YM PRINT ■■ ■■; : G=0: SC=SC*2 
0:SCORE-SC:TEMP=1 

ID 365 IF TEMP=1 THEN FOR M=4 TO 0 STEP - 

1 DIG JCT = INT CSCORE/10) : POSITION L*M 1,2 
3:PRINT CHRSCSCORE-10*DIGIT*176J;:RETU 
RN 

UO 370 POSITION HM, YM: PRINT "|":IF YM<4 T 
HEN POSITION HM,YM:PRIMT " ":G=0 
ZP 360 RETURN 

BY 399 REM Poprawne ładowanie na planecie 
, człowiek biegnie do rakiety 
ZR 00 SOUND 1,0,0,0:Y=27-P1:X=38:HI=34:K 
2=L*5:IF Pl<4 THEN Y=24 Pt:H=0.Kl=i:X2 
= L 3 

RP 410 FOR 1=1 TO 8:F0R J=101 TO 103:POSI 
TION X,Y:PRINT CHRS CJ1; :FOR H=1 TO 30: 
NEHT 14: kEHT J 

MN 420 POSITION H1,Y:PRINT "OJEJ"; IF I/A 
INTCIZZ) THEN POSIT ON H1,Y:? " »*; 

TR 430 NEHT 1'POSITION K,Y:PRINT 1 ", 

NP 440 FOR I=X*5GNCX1-Xl TO X2 STEP SGNCK 

2 X) 

WP 450 FOR J 101 TO 103 STEP 2 POSITION I 
,23 PRINT CHR$tJJ;:FOR W 1 TO 20:NEHT 
M 

YM 455 SOUND 0,90,8,15 *SOUND 0,0,0,0:NEKT 
J: POSITION 1,23: PRINT ■■ ";:NEHT I 
AE 460 i(:Ił5oH(ia K2> : Y 23 : FOR 1=1 TO 2:X 
=H*SGNCl XU : Y-Y 1 

00 465 FOR J=101 TO 103 STEP 2’POSITION X 

,Y:PRINT CHR$ t JJ; ;FOR H=1 TO 20:NEXT M 
:NEKT J:POSITION X,V PRINT ■■ ";:NEXT I 
HS 470 PI Pl-1:U=1:GOTO 200 
BM 499 REM Procedura eksplozji statku 
MO 500 SOUND 0,0,0,o:SOUND 1,75,8,15 
KX 520 Xl-X 2:X2-X+1:X8-X:X5=2:00=15:01=1 
5:02-15.POSITION K-i,YSPRINT ’ "JPOS 
ITION K Y*l : PRINT " 

NT 530 FOR I=V 10 22:P0SITI0N Kl.IsPRINT 
"ah";:POSITION X2,I:PRINT "ic";:IF U=1 
THEN POSITION K0,I:PRINT "e"; 

ZH 540 SOUND 0,20,8,MO:SOUND 1,48,8,01'SO 
UND 2 76,8,02:00-06*0.7:01—01*0 75:02= 
V2*0.;8:XS=XS-0.2:IF XS<0 THEN XS=0 
OY 550 FOR H=i TO 30:NEXT M.POSITION XI,I 
:PRINT ■■ ; :POSITION X2,I: PRINT * 

; ■ IF U = 1 THFN POSITION HO I PRINT *; 
MI 568 X1=X1-XS:IF XI<1 THEN XI 36 
80 570 X2=X2*XS: IF X2>36 TTHEK X2 = l 

UF 580 NEHT I:FOR 1=6 TO 3:SOUND 1,0,0,6: 

NEHT I.SL=SI 1:IF SL=0 THEN GOTO 608 
PM 590 GOTO 286 

BI 599 REM Koniec gry, wyświetlenie wyn k 
u i czekanie na wciśnięcie klawisza ST 
ART 
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FX 

HR 
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UH 
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KM 
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EK 
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SO 
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600 GRAPHICS 0:POKE 752,1:POSITION 16, 
10:PRINT "KONIEC GRY":POSITION 12,12:P 

RINT "TMOJ MYNIK = ";SC _ 

616 POSITION 2,, 14 : PRINT "NACISNIJ BE1:1 
□ DO POMTORZENIA MISJI” 

620 IF PEEKCS32791=6 THEN GOTO 15 
630 GOTO 620 

649 REM Procedura BONUS, dodanie 50 pu 
nktow za każdego uratowanego człowieka 

650 FOR 1=3 TO 23:PLOT 1,I:DRAMT0 37,1 

:NEKT I _ 

660 POSITION 16,10 : PRINT ' CTIiTITEre " : POS 
ITION 15,12 SPRINT l, MYNIK = "; SC 
670 FOR 1=1 10 P2:POSITION 12*1*2,14:P 
RINT :5C = SC*56* POSITION 21,12:PRINT 

SC 

680 SOUND 0,1*20*40,10,10:FOR Ml TO 5 

Ck . UF VT U’ UFVT T 

696 FOR I=P2 TO 1 STEP 1 SOUND 0 1*20 
*40,10,10-FOR M=1 TO 50:NEKT M:NEKT I. 
SOUND e,0,0,0:IF P2<6 THEN GOTO 599 

692 REM Jeśli wszyscy ludzie uratowani 

to dodanie extra rakiety _ 

693 POSI TION 8,16-print [3=LM33uCEMiEI3 
jBHCL " • : SI -SI tl.FflP P2=l TO 4 : FOR A 
Z=80 TO 185 STEP 6 

696 SOUND 0,AZ,1O,10:SOUND 0,AZ*50,ie, 
10:NEKT AZ:NEHT P2 

699 FOR M 11 TO 111 STEP 5:F0R AZ=M TO 
M-7 STEP -1:SOUND 0,AZ,10,10:NEHT AZ: 
NEHT Ms SOUND 0 i GOTO 20 

999 REM Utworzenie własnego generatora 
znaków 

1000 «=PEEKC1861-8:RM=R*2S6 

1016 C=0:FOR 1=0 TO 1023 STEP 30:C=C*1 
:IF C=3 THEN C~0 

1020 SETCOLOR C 1,8,FOR J=I TO Z*30:PO 

KE RM* J,PEEKC57344*Jł :NEKT J:SETCOLOR 

C,0,0.NEHT I:SETCOLOR 6,1,8 

1038 FOR 1=0 TO 8:FOR J=0 10 7:REA0 A. 

POKE RM* C97*IJ*8 + J,A:NEHT J:NEHT I:RET 

URN 

1050 DATA 6,0,12,12,12,15,15,12,24,24, 
24,60,255,255,255,0 0,0,48,48,48,240,2 
40,48 

1060 DATA 255,255,126,126,60,60,24,24, 
219,126,66,24,24,66,162,195,24,24,255, 
24,24 60,102,195 

1070 DATA 24.24,60,126,219,60,102,102, 
46,4B,48,112,240,240,240,0,12,12,12,14 
,15,15,15 0 

1100 GRAPHICS 3*16:FOR 1=0 TO 2;SETC0L 
OR I,0,0:NEXT I 

1105 C=0:FOR 1=0 TO 39:C=C*1:IF C=4 TH 
EN C=1 

1109 REM Strona tytułowa 

1118 COLOR C:PLOT 1,0.PLOT 39~I,21:NEX 
T I 

1126 C 0:FOR 1=6 TO 21:C C*1:IF C=4 TH 


EN C = 1 
1130 COLOR Ci 
T I 

1140 COLOR i. 


PLOT 39,1:PLOT 8,21-I:NEX 


.PLOT 9,4:DRAMTO 5,4.DRAMT 
O 5,6:DRAMT0 9,6 DRAMTO 9, 9:DRAMTO 5,9 
:PLOT 11,9.DRAMTO 11,4'DRAMTO 15,4 
1142 DRAMTO 15,7:DRAMT0 11,7:PL0T 17,9 
:DRAMT O 17,4.DRAMTO 21,4:DRAHT0 21,9:P 
LOT 17.6:DRAMTO 21,6:PL0T 27,4 
1144 DPAMTO 23,4:DRAMTO 23,9:DRAMT0 27 
,9 PLOT 33,4:DRAMT O 29,4:DRAMT0 29,9:D 
RAMTO 33,9.PLOT 29,6:DRAMTO 33,6 
1150 PLOT 2 17 DRAMTO 2,12:DRAHT0 6,12 
:DRAMTO 6,15:DRAMTO 2 15:PLOT 5,16:PLO 
T 6,17:PLOT 12,12:DRAMTO 8,12 
1152 DRAMTO 8,17-DRAMTO 12,17:PL0T 8,1 
4:DRAMT0 12,14 PLOT 18,12:DRAMT0 14,12 
:DRAMTO 14,14:DRAMT0 18,14 
1154 DRAMTO L8,17 : DRAMI T 14,17:PL0T 24 
,12:DRAMTO 28,12:DRAMTO 20,17:DRAMTO 2 
4,17:PLOT 26,12:DRAMTO 26,17 
1156 DRAMTO 30,17.DRAMTO 30,12:PLOT 36 
,12:DRAMTO 32,12:DRAHTO 32,47:DRAMTO 3 
6.17:PLOT 32,14 DRAMTO 36,14 
1160 RETURN 


wyt h rozlega ących się przed rozpoczęciem krążenia 
po orbicie 

Zmienne używane w programie 

A.B wskaźniki kolizgi rakiety z ciałami obcymi 
D kierunek poruszania się statku bazy (1 lub -1) 

Dl poziom trudności (numer planety) 

G wskaźnik wystrzelonego pocisku 
L pozycja lądowiska na dole ekranu 
P wartość zwracana przez joystick 
P1 liczba ludzi do zabrania z planety 


P2 liczba ludzi przewiezionych bezpiecznie do 
statku basy 

S posycja statku basy na górze ekranu 

SC - osiągnięty wynik 

SL liczba rakiet 

X,Y pozycja rakiety 

XM,YM' pozycja pocisku lasera 


Leon 


23 







, Will 

\mmuinri 

flM/ 


W jednym z artykułów, zamie 
szczonych w czasopiśmie "EN 

TER" nr łO’9ł natknąłem się na 
zdanie 

"Jeżeli zapis dyskietek małego 
Atari, o których wspomina Czy 
telmk jest standardowy, dyskietki 
te me mogą być przeczytane 
w IBM PC ze względu na różnice 
zapisu fizycznego na nośniku. Po 
zostaje transmisja łączem RS 
232.” 

Zdanie to stanowi odpowiedz na 
pytanie czytelnika o możliwość 
wykorzystania danych, z groma 
dzonych na dyskietkach 'małego' 
ATARI, na komputerze IBM AT, 
wyposażonym w stację dysków 
elastycznych 5,25 cala o pojemno 
ści 1,2 MB 

Nie chcę polemizować z auto 
rem artykułu, natomiast chciał 
bym podzielić się tutaj moimi do 
świadczeniami na ten temat Już 
jakiś czas temu zastanowiło mnie 
bowiem pytanie, czy można zmu¬ 
sić kontroler dysków używany 
w PC tach do pracy w nietypo 
wych dla mego warunkach 9 Po 
kilku chwilach zastanowienia do 
szedłem do wniosku ze odczyt 
dyskietek ATARI me musi wcale 
być sprawą tak trudną, jak mo 
głoby się to wydawać. Przejdźmy 
jednak do konkretów. 

W jednej ze standardowych gę¬ 
stości (tzw podwójnej) stacje dys 
ków ATARI XL/XE zapisują na 
dyskietce 40 ścieżek po 18 sekto 
rów na każdej, każdy sektor zaś 
składa się z 256 bajtów Jak ła 
two policzyć, pojemność takiej 
dyskietki to 40*18*256=184320 
bajtów Owe 180 kilobajtów 
(184320/1024= 180) było także 
gęstością, używaną we wczesnych 
wersjach systemu MS DOS dla 


komputerów klasy PC Ze wzglę 
du na kompatybilność (w górę’) 
aktualne wersje tego systemu 
muszą posiadać mechanizmy, 
umożliwiające obsługę tak zapisa 
nych dyskietek Tutaj jednak za 
czął się problem' Format dyskie 
tek zakodowany jako $FC jest 
nieco inny mz opisany powyżej 
Wygląda tak 40 ścieżek, 9 sekto 
rów na ścieżce 512 bajtów w se 
ktorze 

Zachęcony pierwszym małym 
sukcesem rozpocząłem poszuki 
wama I oto w jednym z progra 
mów, opisujących działanie PC 
tów (tzw "help ów") znalazłem 
opis nieudokumentowanego prze¬ 
rwania MS-DOS. Przerwanie nr 
$1E wskazuje adres tzw. Disk Ba 
se Table, czyli znajdującej się 
w pamięci RAM tablicy, opisującej 
parametry używanych dyskietek 
Kolejne jej bajty mają następujące 
znaczenie 

0 Bity 0-3 skok głowicy 
Bity 4-7 czas podnoszę 
ma głowicy 

1 Bit 0 użycie DMA 

Bity 2-7 czas opuszczania 
głowicy 

2 Czas zatrzymywania silnika 

3 Rozmiar sektora: 

0-128, 1-256 
2-512, 3-1024 

4 Liczba sektorów na ścieżce 

5 Przerwa dla odczytu/zapisu 

6 Rozmiar buloia transmisji 

7 Przerwa dla formatowania 

8 Wypełniacz dla fomiatowania 

9 Czas osiadania głowicy 
10 Czas rozruchu silnika 

Zaryzykowałem i udało się! Se 
ktor został odczytany, choć w bu 
forze znalazło się nie całkiem to, 
co powinno było się tam znaleźć. 
Dziwne "krzaczki" zamieniły się 
w zrozumiałe znaki po zamianie 
bitów (O na 1 i ł na O) w każdym 
z odczytanych bajtów. To proste: 


ATARI widz: inaczej (odwrotnie) 
mz IBM 

Jak widać można, zmieniając 
niektóre z wartości zawartych 
w DBT, uzyskać nieco inne od 
standardowych parametry dys 
kie ek Jak tego dokonać w pra 
ktyee 9 Należy przy pomocy jednej 
z funkcji usługowych MS-DOS 
pobrać adres Disk Base Table, 
zmienić odpowiednie wartości 
(ale najpierw je zapamiętać ; ), wy 
wołać funkcję BIOS u o nazwie 
Reset Drive, odczytać plik z dys 
kietki ATARI, "oddać dawne war 
tości ( oczywiście wykonać Reset 
Dnve), by wreszcie zapisać odczy 
tany plik w normalnym formacie 
IBM .. 

Celowo dość skrótowo opisałem 
całą procedurę Nie chcę odbierać 
nikomu z Czytelników przyje 
mności dokonywania ewentual¬ 
nych odkryć Gorąco zachęcam 
do prób, bo przecież łatwo wyob 
razić sobie sytuację kiedy można 
używać naszego ulubionego do 
mowego, "małego' ATARI jako 
swoistego terminala do wprowa 
dzama danych których potem (za 
pośrednictwem dyskietki) użyje 
my na jakimś "poważnym IBM 
ie 

Na koniec jeszcze kilka uwag 

ł Należy używać dobrych dys 
kietek do opisanych wyżej opera 
eji. Często używanie złej jakości 
dyskietek powoduje powstawanie 
błędów odczytu Wynika to, mo 
im zdaniem, z różnicy w kalibra 
cji głowicy w różnych typach na 
pędów dyskowych. 

2 Trzeba pamiętać o tym. ze 
istnieją poważne różnice w zesta 
wach znaków kontrolnych w obu 
typach komputerów Przecież 
inaczej wygląda znak końca wier 
sza w ATARI ($9B), a inaczej 
w PC tach ($0A i $OD) 

Program, napisany w oparciu 
o powyższe rozważania jest dość 
często używany w redakcji 'Taje 
mmc ATARI" i mimo występują¬ 
cych błędów transmisji (patrz 
uwaga ł) bywa pomocny w pracy 


Jarosław Syrylak 
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Miło mi po raz drugi w tak 
krótkim czasie omawiać nowy 
muzyczny program wydany 
przez L. K, Avalon. W trzy mie 
siące po ukazaniu się AUTOMA 
TU PERKUSYJNEGO dostajemy 
bowiem do rąk znakomity CHA 
OS MUSIC COMPOSER autor 
stwa cenionego programisty Ja¬ 
nusza Pelca 


efekty, np opadanie wysokości 
głosu czy krótkie echo Klawiatu 
ra alfanumeryczna komputera 
traktowana jest jak klawiatura 
fortepianowa, dzięki czemu na 
bieżąco można próbować melodie 
grane danym instrumentem. 

Okno drugie to tworzenie pat - 
ternów Każdy pattern to cztery 


fon wielośladowy" Skomponowa 
ne wcześniej patterny umieszcza 
się na trzech niezależnych (!) 
ścieżkach, budując utwór. Kom 
pozycję widzimy w postaci łańcu¬ 
szka (lub raczej trzech równole 
głych łańcuszków) patternów. 
I tu podobnie jak w AP - możli 
we jest dokonywanie wszelkich 
zmian' poprawek, zmiany tempa. 



Napisałem "miło mi‘ nie dlate 
go, że w ogóle ukazał się nowy 
program ale dlatego, ze mą]ąc 
czyste sumienie mogę sprawić 
mu kilka komplementów. Podo¬ 
bnie jak AP, CMC jest w znacznej 
mierze wzorowany na rozwiąza 
niach znanych z urządzeń profe 
sjonalnych Program ten za mie 
nia małe ATARI w prawdziwą 
"Workstation" czyli stanowisko 
pracy muzyka, oferując użytkow¬ 
nikowi moduł dźwiękowy kla¬ 
wiaturę i sekwencer. 

Ekran podzielony jest na trzy 
okna, które obsługują trzy głów 
ne funkcje programu Okno pier 
wsze służy do obróbki dźwięku. 
Możemy dowolnie zmieniać jego 
barwę, obwiednię poziom głośno 
ści i wysokości (oktawę). Wszy 
stko to jest w znacznej mierze 
ułatwione dzięki edycji graficz 
nej - możemy "zobaczyć" dźwięk, 
jego narastanie i opadanie. Do 
bierając odpowiednie parametry 
możemy kreować brzmienia per 
kusyjne, harmoniczne, a także 


takty jakby cegiełka, z której 
buduje się utwór. Posłuchajcie 
jakiejkolwiek nowoczesnej kom¬ 
pozycji, a znajdziecie w niej po¬ 
wtarzalność. Aby uniknąć mozol¬ 
nego, wielokrotnego wpisywania 
tych samych melodii stosuje się 
właśnie patterny (ang. wzór). 
Pattern przedstawiony jest tu nie 
w postaci nut, ale jako tzw. 
event list". Widzimy listę zda 
rżeń; każde zdarzenie to pozycja 
nuty. Jej wysokość i użyty instru 
ment To również rozwiązanie 
przejęte z profesjonalnych urzą 
dzeń, i co podkreślam ma zna 
czny walor edukacyjny. 

Nie jest możliwe wpisywanie 
melodii w czasie rzeczywistym, a 
tylko "krok po kroku’ przez po¬ 
dawanie wartości nut myślę, że 
jest to nąjistotnięjszy mankament 
programu. 

Wreszcie trzecie okno to se 
kwencer ale aby słowo to nie 
straszyło swym obcym brzmię 
nłem, nazwijmy rzecz ' magneto- 


rozciągania i skracania utwo¬ 
rów, Utwory mogą być jednak 
o wiele bardziej skomplikowane, 
nawet przy użyciu mniejszej ilo¬ 
ści patternów dzięki prowadzę 
niu niezależnych śladów (prawa 
kombinatoryki!) Prócz tego moż 
na tworzyć pętle (utwór odtwa¬ 
rzany jest "w kółko bądź powta¬ 
rza się od danego momentu), 
a także dokonywać zmian tempa 
w trakcie utworu 

To wszystko to tylko słowny 
opis programu - tych, którzy 
chcą USŁYSZEĆ jego możliwo¬ 
ści odsyłam do Lasermanii mu 
zyka towarzysząca tej grze zo 
stała stworzona właśnie przy 
użyciu CMC, Jeszcze prostszym 
wyjściem jest osobiste wypróbo 
wanie COMPOSERA. 


Daniel Kleczyński 
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"Czerwona kula powoli schodzi 
coraz mzej przesłaniana dalekimi 
koronami drzew, jeszcze chwila 
i znika zupełnie pozostawiając je 
dynie purpurowe niebo Czpjesz 
jak twoja dziewczyna prąytula się 
mocniej i szepce jakie to piękne! 
Ach, zobaczyć to jeszcze raz 
Niestety wzdychasz • następne 
dopiero jutro” 


Co za głupiec! Jutro? Człowie 
ku, za 24 godziny twoja dziew 
czyna może już oglądać zachód 
słońca z zupełnie innym chłopa 
kłem Prawdziwa miłość wymaga 
poświęceń i wyobraźni. Zabierz ją 
w takie miejsce, gdzie słońce po 
zachodzie wędruje z powrotem 
nad horyzont, aby znów zajść po 
raz drugi. Gdzie to jest? Na Mer¬ 
kurym. 


Co? Że za daleko? Przyjacielu, 
daleko to jest do jakiejś tam 
Gwiazdy Polarnej, a nie do Mer 
kur ego Weź kierunek na Słońce 
a stamtąd to już blisko 


Idę o zakład, ze gdy juz tam bę 
dziecie, to gdzieś po drugiej pacz 
ce paluszków twoja dziewczyna 
zapyta - 'Słuchaj, a właściwie to 
dlaczego ono tak dwa razy zacho 
dzi?" Uważaj I Od odpowiedzi na 
to pytanie zależy być może dalszy 
los tej znajomości. Proponuję na 
początek coś z wersji romantycz 
nej. Wprawdzie to nie rozwiąże 
problemu, ale nie ma to jak dobra 
porcja lirycznego bąjeru. 


Po tym koniecznym wstępie 
masz w zasadzie dwie drogi. Pier¬ 
wsza, to pójście na całość: jakiś 
rys historyczny (Kepler, Newton 
itp.), potem krótka analiza ruchu 
postępowego Merkurego dookoła 
Słońca z uwypukleniem wzrostu 
prędkości przy przejściu peryhe 
lium z niezmienioną prędkością 
obrotową planety, aby zakończyć 
pamięciowym rozwiązaniem kil 
ku równań, co ostatecznie poka¬ 
że, że wartość prędkości kątowej 
Słońca na horyzoncie Merkurego 
w pewnym momencie zmienia 
znak. W międzyczasie końcem la 
serowej latarki (kupisz taką tamo 
u Rosjan) kreślisz potrzebne ry 
sun ki wykresy i wzory 


Druga możliwość, to wyciągnąć 
z plecaka dwa jabłka i nie tykając 
matematyko astro fizyki próbo¬ 
wać rzecz wyjaśnić empirycznie. 

Obie możliwości zawierają, 
rzecz jasna ryzyko Przy pier 
wszej może okazać się, że przece 
niłeś możliwości swojej dziewczy 
ny i ta po powrocie uda się po 
prostsze wyjaśnienia do twojego 
kumpla (tego z U roku fizyki), co 
będzie w praktyce oznaczać ko 
nieć znajomości Drugi wariant 
może zakończyć się sarkastycz 
nym "Uwielbiam gdy mówisz do 
mnie jak do idiotki" i wizytą two 


jej dziewczyny u kumpla (tego 
z II roku fizyki) po dokładniejsze 
wyjaśnienia 

Jest jeszcze trzecie wyjście, 
choć i ono nie jest stuprocentowo 
pewne. Widzisz ten program 
obok? Tam, na Merkurym mo 
żesz po prostu wyciągnąć swój 
kieszonkowy MERITUM Turbo+ 
i sprawa z głowy! 

Gdzie tu ryzyko? Twoja dziew 
czyna może zechcieć obejrzeć to 
na jakimś Pi Si z kolorowym mo¬ 
nitorem ma taki twój kumpel 
(ten z U fizyki). 
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Na koniec prośba. Gdy się już VD 

zgadło te paluszki, to chyba moż- QM 

na opakowanie wyrzucić do ko RE 

sza, nie? Wy, młodzi, me macie za SC 

grosz szacunku do naszego Kos- TO 

mosu Widziałeś co ostatnio jakiś QJ 

matoł zrobił na Marsie? Uważam, 
że wypalić laserem z orbity napis ED 

'LEGIA KING", to już szczyt Q x 

chamstwa. TJ 

RH 

I jeszcze tylko rada W dzień na wP 

Merkurym jest ponad 400 C, zd 

a w nocy 180 Nie zapomnijcie 
więc wziąć dużo Pepsi i jakieś cie 


10 ? "Zaczekaj ”:REM PROGRAM REPLAY 

20 DIM S20(18),C20(18):DEG 
30 FOR GAMA=1 TO 18:S20(GAMA)=SIN(20*G 
AMA):C2 0{GAMA)=COS(20* GAMA):NEXT GAMA 
40 A=0.39:REM POLOWA WIELKIEJ OSI ORBI 
TY MERKUREGO (W JEDN.ASTRONOM.) 

50 E=0.2:REM MIMOSROD ORBITY MERKUREGO 
60 T=88:REM OKRES OBIEGU MERKUREGO DOO 
KOLA SŁOŃCA 

70 Vl=540/TsREM PRĘDKOŚĆ KĄTOWĄ OBROTU 
MERKUREGO DOOKOŁA WŁASNEJ OSI 
80 P=A*(1-(E*E)) 

90 ALFA=300:REM WYBRANY PRZYKŁADOWO KA 
T POŁOŻENIA MERKUREGO (WE WSPOLRZEDNYC 
H BIEGUNOWYCH) 

100 BETA=30:REM WYBRANY PRZYKŁADOWO KA 
T POŁOŻENIA SŁOŃCA NAD HORYZONTEM MERK 
UREGO 

110 N=250:M=2000:K=7:L=1010:Q=1520:REM 
STALE GRAFICZNE 
120 GRAPHICS 8:COLOR 1 

130 PLOT 11,79:PLOT 10,80:PLOT 12,80:P 
LOT 11,81:PLOT 180,100:DRAWTO 290,100: 
REM ZAZNACZENIE HORYZONTU 
140 ? "SŁONCE HORYZONT NA MER 

KURYM ORBITA MERKUREGO” 

150 R=P/(l+(E*COS(ALFA))):REM PROMIEŃ 
ORBITY MERKUREGO 

160 V2=(360*A*A*SQR(1-(E*E)))/(T*R*R): 
REM PRĘDKOŚĆ KĄTOWĄ OBIEGU MERKUREGO D 
OOKOLA SŁOŃCA 
170 ALFA=ALFA+V2 
180 IF ALFA>410 THEN END 
190 V“V2-V1:REM PRĘDKOŚĆ KĄTOWĄ SŁOŃCA 
NAD HORYZONTEM MERKUREGO 
200 XM=R*N*COS(ALFA):YM=R*N*SIN(ALFA): 
PLOT XM+10,YM+80:REM ZAZNACZENIE POLOZ 
ENIA MERKUREGO 
210 BETA=BETA+V 

220 COLOR 0:GOSUB 260:REM ZETRZYJ 
230 XS=M*COS(BETA):YS=M*SIN(BETA) 

240 COLOR 1:GOSUB 260:REM RYSUJ 
250 FOR Z=1 TO 500:NEXT Z:GOTO 150 
260 REM RYSUNEK SŁOŃCA NAD HORYZONTEM 
MERKUREGO 

270 FOR GAMA=1 TO 18 

280 XS1=K*C20(GAMA):YS1=K*S20(GAMA) 

290 IF -YS+YSl+L>=99.5 THEN 310 
300 PLOT XS+XSl—Q,—YS+YS1+L 
310 NEXT GAMA 
320 RETURN 


płe sweterki. Powodzenia, 


Andrzej Czado 
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Po ostatnich zmaganiach z pęt¬ 
lami zajmiemy się rzeczami trosz 
kę milszymi dla oka, czyli różny 
mi trybami i funkcjami graficzny 
mi, Wprawdzie w 6 numerze TA 
zostały szczegółowo omówione 
poszczególne tryby wyświetlania 
obrazu, lecz dla przypomnienia 
trochę wiadomości powtórzymy. 
W komputerach ATARI serii 
XL/XE wyświetlaniem obrazu zaj 
muje się specjalizowany układ 
scalony, zwany ANTIC Jest to 
właściwie procesor graficzny 
z możliwością programowania 
Program dla mego zwykło się na¬ 
zywać Display Listą. Jej dokładne 
omówienie wykracza nieco poza 
ramy tego cyklu. Należy tylko 
wspomnieć, ze program ten moż 
na stworzyć samemu, lub może 
to zrobić za nas interpreter basi- 
cu. Do wygenerowania go służy 
komenda 

GRAPHICS numer trybu 

(w skrócie GR.) 

ANTIC rozpoznaje 14 trybów 
wyświetlania obrazu. W basicu 
można uzyskać 13 (9,10,11 tra 
ktowane są jak 0) Tryb 
0,1,8,18,13 powoduje wyświetla 
nie obrazu w trybie tekstowym 
Tryb 0 jest standardowo ustawia 
ny po włączeniu komputera 
W trybie 1 i 3 można wyświetlać 
litery większe niż standardowo, 
w trzech kolorach, w zależności 
od tego, czy są to litery duże, ma ¬ 
łe, czy też w negatywie. Tryby 18 
i 13 też są znakowe, jednak każda 
literka może być czterokolorowa, 
w zależności od jej definicji. 
Standardowe literki wyświetlane 
w trybie 13 i 13 są mało czytelne 
Pozostałe tryby służą do wyświet¬ 
lania danych graficznych. Można 
w szczególności zapalać poszczę 
gólne punkty obrazu,, bądź ryso 
wać linie. Do zapalania pojedyn¬ 
czych punktów służy komenda 

PLOT x,y (PL.) 


gdzie x i y są odpowiednio pozio¬ 
mą i pionową współrzędną pun 
ktu (liczonymi od lewego górne¬ 
go rogu ekranu). x i y muszą 
oczywiście mieścić się w od po 
wiednim zakresie, zależnym od 
trybu, w jakim pracujemy. Roz¬ 
dzielczość poszczególnych trybów 
przedstawia poniższa tabelka: 


nr trybu 

X 

Y 

kolorów 

3 

40 

24 

4 

4 

80 

48 

2 

5 

80 

48 

4 

e 

160 

96 

2 

7 

160 

96 

4 

8 

320 

192 

2 

14 

160 

192 

2 

15 

160 

192 

4 


W tabelce znalazła się jeszcze 
jedna kolumna, czyli liczba kolo 
rów dostępnych w danym trybie 
Jeden z nich zawsze jest kolorem 
tła. Do ustawiania kolorów służą 
dwie komendy 

color nr koloru (c.) 

wybiera kolor, którym będziemy 
rysować. 


setcolor nrkoloru, 
kod koloru jasność {SE.) 

ustawia wybraną barwę. Nr kolo¬ 
ru wskazuje kolor, który będzie 
my ustawiać, kod koloru jest licz 
bą 0-15 i oznacza 


0 - czarny 

1 - rdzawy 

2 - czerwono-pomarańczowy 

3 - ciemny pomarańczowy 

4 - czerwony 

5 - morski (lawendowy) 

6 - jasny niebieski 

7 - niebieski(ultramaryna) 

8 - niebieski 

9 - ciemny niebieski 

10 - niebiesko-szary 

11 - oliwkowy 

12 - zielony 

13 - ciemny zielony 

14 - zielono-pomaranczowy 

15 - pomarańczowy 

Jasność koloru określa liczba 
od O do 15, gdzie 0 jest jasnością 
nąj mniejszą. 

Należy jeszcze dodać, że para 
metr oznaczający numer trybu 
graficznego w komendzie 
GRAPHICS, podany jako liczba od 
0 do 15, spowoduje utworzenie 
konkretnego trybu z oknem teks 
towym w dole ekranu. Okno to 
ma 4 linie (trybu 0) wysokości. 
Zwiększenie parametru o 16 po 
woduje utworzenie trybu bez ok¬ 
na. Zwiększenie go 
o 33 powoduje 
zmianę sposobu 
wyświetlania da 
nych na żądany bez 
uprzedniego kaso¬ 
wania starego ekra¬ 
nu (w tym trybie 
oczywiście) 

Jeszcze jedna 
uwaga Do wypro¬ 
wadzania danych 
tekstowych w in 
nych trybach niż 
0 służy komenda 
PRINT #6 zamiast 
samego PRINT. 

Tyle wywodów 
teoretycznych, w następnym od¬ 
cinku postaramy się bliżej zazna¬ 
jomić z nowo nabytą wiedzą pi 
sząc krótkie programiki 

Mirosław Liminowicz 
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W czasach świetności systemu 
komunistycznego grupa naukowców 
przeprowadziła głośny eksperyment 
Przesłano przyszłym pokoleniom 
próbkę społeczeństwa z ustroju do¬ 
brobytu Komputer wytypował Cie¬ 
bie Po przebudzeniu stwierdziłeś, że 
jako Jedyny mężczyzna przeżyłeś 
w stanie hibernacji do roku 2044 
i w tym momencie zaczyna się Twój 
prawdziwy problem 

Gra 'A.D. 2044” nosi podtytuł Sex- 
misja” Powstała ona pod wpływem fa¬ 
scynacji autora znakomitym filmem 
Oczywiście mamy tu do czynienia 
z bardzo udanym i zręcznym opraco¬ 
waniem filmowych wątków, które zo¬ 
stały zaadaptowane w taki sposób, by 


dostarczyć wspaniałej rozrywki gra¬ 
czom zarówno nąj młodszym, jak 
i trochę starszym Wymagana jest tu 
spostrzegawczość poczucie humoru 
i umiejętność czytania - A.D 2044" 
jest grą "tekstową". Jednym z jej nie¬ 
zaprzeczalnych walorów są niesłycha¬ 
nie zabawne komentarze do wielu 
czynności, które wykonuje gracz 
Warto też zwrócić uwagę na umiesz¬ 
czone w różnych miejscach podzie¬ 
mnej bazy napisy będące dowcipną 
aluzją do tzw nowomowy" Do moc¬ 
nych stron gry należy też znakomita 
grafika i niezwykła rozmaitość nie¬ 
spodzianek , jakie napotyka penetru¬ 
jący poszczególne poziomy uczestnik 
gry Tu naprawdę trzeba mieć oczy 



recenz|ci 

_ dŁk} 


szeroko otwarte i. zwracać uwagę na¬ 
wet na pozorne drobiazgi - łatwo 
przeoczyć coś niezbędnego w dalszej 
wędrówce Każdy fałszywy krok mo¬ 
żliwy jest jednak do naprawienia, 
a napotykane przez wypełniającego 
misj ę bohatera przeszkody me niosą 
mu śmiertelnego zagrożenia 


Znąjomość film u może znacznie uła¬ 
twić grę, jednakże również i ci, którzy 
go nie oglądali będą z pewnością mogli 
wypełnić niełatwą misję przywrócenia 
społeczeństwu jego męskiej części ba¬ 
wiąc się przy tym doskonale. 


Omawiając tę znakomitą grę nie 
można zapomnieć o muzyce, której co 
prawda nie ma wiele jest to jednak 
sympatyczna, wpadająca w ucho melo¬ 
dyjka, odgrywająca ważną rolę w pod¬ 
kreśleniu "wielkiego finału pomyślnie 
zakończonej wyprawy, którego oczy¬ 
wiście zdradzić nie zamierzamy 



SAPER jest czymś więcej niż prostą 
grą zręcznościową. Przechodzenie ko¬ 
lejnych plansz - pól rumowych wyma¬ 
ga od gracza logicznego myślenia oraz 
wyobraźni przestrzennej 8topień 
trudności poszczególnych plansz jest 
zróżnicowany Początkowo zachęca ła¬ 
twością - gracz pewme i bez większych 
kłopotów przechodzi pierwsze pola mi¬ 
nowe Gdy jednak posuwa się coraz da¬ 
lej w głąb ' terenu wroga napotyka na 
utr udni enia, których pokonanie uza¬ 
leżnione jest w dużej mierze me tyle od 
zdolności "szybkiego reagowania 1 , co 
precyzji i namysłu Tutąj cierpliwi 
i ambitni mają pole do popisu Misja 
sapera-komandosa me jest prosta, lecz 
przecież to stanowi o jej atrakcyjności 
Sądzę, że gry zbyt proste szybko się 
nudzą, a ich ukończenie dostarcza nie¬ 
wielkiej satysfakcji Ci, którzy przejdą 
wszystkie plansze Sapera z pewnością 
będą usatysfakcjonowani - to świetna 
a zarazem pouczająca zabawa Pra¬ 
wdziwy komandos to przecież nie tylko 
siłacz-kara teka, lecz także człowiek in¬ 
teligentny i przewidąjący. Do ukończe¬ 
nia gry oprócz sprawności manualnej 
oraz refleksu niezbędne jest zaangażo¬ 
wanie umysłu: wyobraźni 1 pomysło¬ 
wości 


Ważnym elementem SAPERA jest 
doskonała muzyka pomagająca w wy¬ 
tworzeniu odpowiedniego nastroju, 
spełniająca w ten sposób bardzo ważną 
rolę Jej niezwykłe brzmienie pozwala 
lepiej wczuć się w rolę dzielnego ko¬ 
mandosa, nieomylnego sapera, który 
z zadziwiającą precyzją wysadza śmier¬ 


cionośne miny-pułapki rozmieszczo¬ 
ne na terenie starego poligonu. 

Ta gra dostarcza dobrej zabawy, 
a także wpływa stymuiąjąco na roz¬ 
wój spostrzegawczości, szybkości 
reakcji oraz zdolności logicznego 
myślenia 
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Mam napisany program w Basicu. Nie chciałbym, aby wgry¬ 
wał się przez CI OAD czy KUN "C " Najlepszym rozwiązaniem 
jest użycie klawisza START Jak to zrobić 7 Michał Pierzchała 


Nadeszło ostatnio wiele listów podobnej treści. Py¬ 
tanie jest o tyle kłopotliwe, że istnieją dziesiątki "pa 
tentów" na zrealizowanie takiego zadania, Jest to, 
oczywiście, działanie wbrew naturze, bo nąjwłaści- 
wszym sposobem uruchamiania programu BASIC 
owego jest właśnie CLOAD i RUN. Istnieje teoria, 
mówiąca, ze kiepscy programiści stosują tego typu 
metody, by ukryć przed oczami ciekawskich teksty 
programów, których się wstydzą. Ale skoro Pań¬ 
stwo się uparli... 

Idea przedstawionego poniżej programu zasadza 
się na powszechnie znanym triku z "samoczynnym 
RETURNem". Po wykonaniu rozkazu POKE 842,13 
system sam sobie naciska klawisz RETURN, w wy¬ 
niku czego wszystkie napotkane na ekranie napisy 
są przyjmowane jako rozkazy do wykonania Wy¬ 
starczy zatem wypisać na ekranie CLOAD, a poniżej 
RUN, ustawić kursor ponad tymi napisami i wsta¬ 
wić 13 pod adres 842. Trzeba tylko przewidzieć od¬ 
powiednie odstępy między wierszami rozkazów, po¬ 
nieważ BASIC na wstępie pracy, a także po wykona¬ 
niu CLOAD wypisuje swoje "RE ADY". 

W praktyce, aby nie trzeba było zaczynać każdego 
uruchamianego tym sposobem programu od rożka 
zu POKE 842,12 (co przywraca normalny tryb kla¬ 
wisza RETURN), trzeba go dopisać tuż przed RUN: 

POKE 842,12:RUN 

Można ukryć te wszystkie poczynania, nadając li¬ 
terom na ekranie kolor tła, i dodając na początku 
powyższego wiersza rozkaz GRAPHICS O. 


RI 

10 i 

CA 

20 ] 

XW 

30 l 

TN 

100 

NG 

110 

TO 

120 

TT 

130 

DI 

140 

PR 

150 

BM 

160 

TL 

170 

OU 

180 

QV 

190 

GR 

200 

RH 

210 

MA 

220 

AV 

230 


H , 8 ,Sl2 8 , “C : " :TRAP 30 
3: PUT #1,B:GOTO 20 
#1;END 

i_* 

: BASIC Loader : 

: Tajemnice Atari 1991 : 

k _* 

0,1,0,1,6,1,24,96,173,198,2 

141,197,2,162,0,169,11,157 

66,3,169,53,157,66,3,169,1 

157,69,3,169,36,157,72,3,169 

0,157,73,3,32,86,228,169,13 

157,74,3,141,252,2,96,29,29 

67,76,79,65,68,29,29,155,71 

82,46,48,58,60,79,75,46,56 

52,50,44,49,50,56,82,85,76 

155,28,28,28,28,28,28 


Powyższy program po uruchomieniu wyemituje 
plik kasetowy w formacie "BOOT’. Swój program 
w BASIC-u nagrywamy tuż za tym uruchamiaczem 



(jbw) 


Używam COS-u opublikowanego na łamach TA. Niestety, me 
działa h> nim rozkaz DIR. Po wyświetleniu komunikatu i na¬ 
główka tabelki komputer zawiesza się 

To pytanie powraca w wielu listach. Oczywiście 
komputer się nie zawiesza, tylko nie dogadał się 
z użytkownikiem. System COS został napisany jako 
prosty symulator DOS-u, pozwalający uruchamiać 
programy przeznaczone pierwotnie dla systemu 
dyskowego. Ustawia on parametry pracy kompute¬ 
ra tak, by wczytywanym programom wydawało się, 
że działają w DOS le. Lecz obsługa magnetofonu 
w COS-ie nie została w żaden sposób ulepszona, Tak 
jak zawsze należy po usłyszeniu charakterystyczne 
go sygnału (tzw trąbki) ustawić taśmę w odpowied¬ 
nim miejscu, wcisnąć klawisz PLAY w magnetofo¬ 
nie, a następnie nacisnąć dowolny klawisz kompute¬ 
ra. Mylące może byś to że DIR uruchamia silnik 
magnetofonu, lecz służy to tylko dla naszej wygody 
przy odszukiwaniu początków programów. Pracy 
silnika nie towarzyszy tym razem odczyt zawartości 
kasety - do tego trzeba po odnalezieniu "na słuch" 
początku programu dać klawiszem znak kompute¬ 
rowi, że może już zacząć czytać. Gdy tylko COS od 
czyta pierwszy blok pliku, wypisze znalezione tam 
informacje i przejdzie do oczekiwania na przewinię¬ 
cie następnego pliku.. i tak w nieskończoność, a ści 
ślej. do naciśnięcia klawisza BREAK 



(jbw) 
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Program jest napisany przejrzyście i dobrze 
skomentowany, a nazwy etykiet dobrane z roz¬ 
mysłem w istotny sposób pomagają zrozumieć 
jego działanie Pod tym względem może stano¬ 
wić wzór do naśladowania Wydaje mi się tylko, 
że dane dla klawiatury zostały zdefiniowane w niezbyt 
przejrzystej formie co może utrudnić późniejszą icb mo 
dyfikację (lub znalezienie błędu) Osobiście preferuję dane 
tego typu w DTA B( .), a przy każdej liczbie powinien stać 
symbol odpowiadąjącego jej klawisza 

Moją wątpliwość budzą też cztery pytajniki na początku 
tablicy rozkazów basicowych Można je usunąć zamienia¬ 
jąc rozkaz opatrzony etykietą NEWTAB na LDA TAB-4 Y 

Program zajmuje pamięć w obszarach: 9000 9©7F 
i 9600 96FF Dzięki umiejętnemu włączeniu się w system 
przerwań i obsługę sekwencji RESET nie koliduje z wię¬ 
kszością programów użytkowych (np współegzystąje 
przyjaźnie z XLFriendem) 

Obsługa RESET jest zrealizowana poprawnie lecz bra¬ 
kuje opcji wyjścia (dezaktywlzacji programu) co powodu¬ 
je bezpowrotną utratę szóstej strony dla innych celów Wy 
dąje mi się, że tego typu programy powinny być umiesz¬ 
czane tuż nad DOS-em (lub COS-em) tak, jak to pokazano 
w cyklu 'Programowanie procesora ", Nawiasem mówiąc, 
można ten program bez trudu przystosować do Relocato- 
ra i instalować go ponad DOS-em, pozostawiając stronę 6. 
do wykorzystania przez programy w Basicu 

Niejasne zą dla mni e podchody do słowa KETYBUF Skoro 
nie zmienia się ono nigdy podczas działania programu to 
można je zadeklarować od razu jako DTA A(BEG). a nie ini¬ 
cjować przez LDA i STA 

W sumie znajduję w programie więcej zalet niż wad 
i z czystym sumieniem polecam go zarówno do wykorzy¬ 
stania jako narzędzie pomocne przy pracy z Basicem jak 
i w charakterze pouczą) ącego przykładu 

Oto ten sam program w wersji Zgrywusa dla tych, któ¬ 
rzy nie lubią lub nie mają Quick Assemblera Należy połą¬ 
czyć go z programem Zgrywus-ł- z TA 6/91 (z poprawką 
z TA 8/91), uruchomić go i zapisać plik binarny zdatny do 
wykonania przez DOS lub COS. 


IJ 1000 REM *-* 

FI 1002 REM : Super Keyboard : 

QV 1004 REM : autor: Maciej Czarnota : 

YF 1006 REM : (c) 1991 Tajemnice ATARI : 

JP 1008 REM *-* 

YO 1010 DATA FFFF00905490A201BD08029D36 
VA 1020 DATA 06B50C9D7A05CA10F2A9FF8DF5 
YZ 1030 DATA 02A9008D08028D7C05A9058D09 
OT 1040 DATA 028D7D05A968850CA905850DA2 
IW 1050 DATA 34A0904C42C65375706572204B 
EJ 1060 DATA 6579626F61726420322E302062 
QH 1070 DATA 79204D2E437A61726E6F74619B 
OF 1080 DATA 00057D058A489848AD09D2C9F2 
DI 1090 DATA D008AD2F0249228D2F02C9F0D0 
EV 1100 DATA 08AD6D0249FF8D6D02C9F5D008 
QH 1110 DATA ADDB0249018DDB02C9F3D006A5 
MU 1120 DATA 4149038541C9DBD00CADF402AE 
UU 1130 DATA 6B028D6B028EF402C9DDD008AD 
ZI 1140 DATA A202F0034C77E4C9DCD008ADF5 
PA 1150 DATA 0249FF8DF502ADF502D0034C31 
ZQ 1160 DATA 064C0006A201BD08029D3606BD 
KD 1170 DATA 7C059D0802CA10F14C79050000 
HJ 1180 DATA 0006F306AD09D2302CC9409028 
CB 1190 DATA 293FA8B93806F0200A0AA203A8 
TE 1200 DATA 98488A48B9780620B0F268AA68 
HR 1210 DATA A8C8CA10EE2083F968A868AA68 
AG 1220 DATA 4068A868AA4C35060C0A000000 
RQ 1230 DATA 0B00000F0010151E0900001600 
XZ 1240 DATA 03000002181A00000000000000 
MU 1250 DATA 00001B000E000D001C12000519 
QO 1260 DATA 00141711000000000000000006 
ES 1270 DATA 0804001D0713013F3F3F3F444F 
OP 1280 DATA 532042594520434C5220444154 
FM 1290 DATA 41454E4420464F5220474F544F 
CP 1300 DATA 474F532E494E502E4752412E50 
IL 1310 DATA 4F4B454C4953545045454B4E45 
WK 1320 DATA 58544F50454E504F532E524553 
DW 1330 DATA 2E524541445345542E54524150 
RF 1340 DATA 55535228535445505448454E52 
Al 1350 DATA 45542E534F552E434852244E45 
HQ 1360 DATA 57204C4F41445341564552554E 
KJ 1370 DATA 20E002E1020090 
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oferuje dla Twojego Atari: 


mwu 




' \ał: 


ROBBO wspaniała gra zręczno- 
ściowo-logiczna; Cena 25.000 zł. 
MISJA, FRED - zestaw dwóch gier 
żyznościowych z doskonałą muzyką; 

- Zmagania komandosa w tajnej 
MISJI, 

Wędrówka z FREDEM przez 
pełną zagadek i niebezpieczeństw 
krainę Cena zestawu 35.000 zł. 
LASŁRMANIA, 

ROBBO KONSTRUKTOR 

- hfckiowna gra logiczna polegają¬ 
ca na pokonaniu labiryntu komnat 
przy pomocy umiejętnego sterowa¬ 
nia promieniem lasera, 

- Program użytkowy po/walający 
na tworzenie gotowych, samodziel¬ 
nie działających gier. 

Cena zestawu 35.000 zł. 

ALTOM AT PERKUSYJNY - dosko¬ 
nały do tworzenia "muzyczek" kom¬ 
puterowych. Sprzedawany wraz 
z instrukcją ueytkowmka. 

Cena programu 39.000 zł. 

SAPt R najnowsza gra strategicz¬ 
na Patrz opis wewnątrz numeru. 
Cena gry: 35 000 zł 
PANTHER - wielofunkcyjny, całoe 
kranowe edytor tekstów z pakietem 
dmerów pozwalających drukować po 
polsku na wszystkich popularnych 
drukarkach. Cena pakietu 35.000 zł 


A.D.2044 - wspaniała gra przygo¬ 
dowa. Dokładny opis wewnątrz 
numeru Cena gry 35.000 zł 

CHAOS MUSIC COMPOSER - Na¬ 
reszcie ATARI potrafi grać muzy¬ 
kę Pakiet zawiera program do 
komponowania, moduł odtwarzają¬ 
cy (można go dołączyć do własnych 
programów) oraz wyczerpującą in¬ 
strukcję użytkownika. 

Cena pakietu 39.000 zł 


Najlepszy na "małe" Atan zestaw do 
programowania w języku asemblera. 
W jego skład wchodzą 


• QUICK ASSEMBLER -zintegro¬ 
wany pakiet edytora, asemblera i mini 
debugera 

• BUG HUN ITR - nowoczesny de- 
buger całoekranowy 

• XL PTI I ND - edytor tekstów, ta¬ 
bela kodów ASCII, ekranowych 
i klawiatury, kalkulator i monitor 
pamięci 

• Zestaw procedur bibliotecznych uła 
twiających naukę programowanta 

• Podręcznik zawierający instrukcje 
do wszystkich wymienionych pro¬ 
gramów oraz krótki kurs progra¬ 
mowania 

Cena zestawu 59 000 zł. 


Wymiemone miej programy me powsta¬ 
ły w naszej firmie. Zachęcamy jednak 
Państwa do ich zakupu 


MIECZE YALDGIRA - przygodo¬ 
wa gra fantasy z doskonałą muzy¬ 
ką. Cena gry 36 000 zł. 

RODERIC -rycerz przemierzają¬ 
cy labirynt komnat w starym za¬ 
mczysku Cena gry 36.000 zł. 

BATTLE SHIP - kto z nas me grał 
w "okręty”? Tutaj zasady te same, 
lecz przeciwnik i oprawa znacznie 
lepsza. Cena 36.000 zł. 

TacTir - gra przygodowa 
Cena 37.000 zł. 


MARSA W TETRIS - gra logiczna. 
Cena 37.000 zł. 

KOLONY - gra ekonomiczna. 

Cena 37 000 zł 

GEOGRAFLA - program edukacyjny 
obejmujący geografię gospodarczą 
Polski Cena 37.000 d 

ORTOGRAFIA - któż me ma z mą kło¬ 
potów? Ten program może pomóc 
i wiele nauczyć. Cena 35.000 zł. 

YIDtOGRAF - narzędzie do two¬ 
rzenia czołówek filmów VIDK) 
wraz z tn. trukcją użytkownika. 

Cena 40.000 zł. 


Uregulowanie należności następuje przy 
odbiorze przesyłki Zamówienia które 
powinny zawierać wyszczególnienie ro¬ 
dzaju nośnika (fcjsęia lub dyski oraz do- 
ądiiy -ima i^ccgc. 


kierować do: 


L.K. AVALON 

skr. poczt. 46 
38-100 Strzyżów 
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